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Abstract 


A  real-time  spectrogram  instrument  has  been  developed  to  provide  an  inexpensive  and 
field-portable  instrument  for  the  analysis  of  animal  sounds.  The  instrument  integrates  a 
computer  graphics  display  package  with  a  PC- AT  computer  equipped  with  an  A/E)  board 
and  a  digital  signal  processing  board.  It  provides  a  real-time  spectrogram  display  of  fre¬ 
quencies  up  to  50kHz  in  a  variety  of  modes:  a  running  display,  a  signal  halted  on  screen, 
successive  expanded  views  of  the  signal.  The  signal  amplitude  may  also  be  displayed.  Por¬ 
tions  of  the  scrolled  data  may  be  saved  to  disk  file  for  future  viewing,  or  as  part  of  a 
database  collection.  The  screen  display  may  be  manipulated  to  adapt  to  special  needs. 


Program  source  listings  are  included  in  the  text.  jj  - ,  j-  ^ 
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The  upper  panel  illustrates  a  section  of  humpback  whale  song  in 
the  memory  display  mode  of  VOICE.  Cursors  bracket  the  section 
that  was  expanded  to  produce  the  display  in  the  lower  panel.  The 
lower  panel  also  illustrates  the  help  and  message  windows. 
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Introduction 


A  real-time  spectrogram  instrument  has  been  developed  to  provide  an  inexpensive  and 
field-portable  instrument  for  the  analysis  of  marine  animal  sounds.  Named  VOICE,  the 
computer  graphics  display  package  is  a  combination  of  software  and  hardware  components. 
The  software  has  been  designed  so  that  a  user  with  minimal  computer  experience  can 
integrate  this  tool  with  a  suitable  application. 

VOICE  displays  both  spectrograms  and  waveform  displays  in  real  time  on  a  computer 
screen.  Sounds  prerecorded  on  an  analog  audio  tape  can  be  directed  simultaneously  into 
both  an  amplifier  and  the  VOICE  computer.  A  microphone  or  hydrophone  connected  to  the 
VOICE  computer  can  also  be  used  to  display  live  animal  calls  on  the  °creen.  The  ability  to 
see  the  spectrograms  of  the  sounds  at  the  same  time  that  they  are  heard  greatly  facilitates 
the  identification  of  patterns  that  might  go  unnoticed  when  scanning  depends  solely  on  the 
human  ear. 

The  developed  tool  provides  a  real-time  spectrogram  and  waveform  display,  on-line  save 
buffer  editing  and  disk  storage.  Some  of  the  instrument’s  capabilities  are  listed  below: 

Continuously  digitize  an  analog  channel  at  an  aggregate  acquisition  rate  of  100 
k  samples/sec. 

Compute  and  display  in  real  time  a  spectrogram  and  its  envelope  waveform  with 
a  clipping  indicator  at  screen  scroll  rates  up  to  7  sec  per  monitor  width. 

Halt  the  screen  so  that  a  spectrogram  can  be  viewed  as  long  as  desired. 

Delimit  a  spectrogram  signal  with  cursors  for  successive  expansions  of  events 
too  detailed  to  be  examined  in  real  time. 

Customize  the  screen  display  by  controlling  the  sample  frequency,  setting  the 
number  of  points  per  transform,  setting  the  interval  between  time  ticks  marking 
the  elapsed  time  for  the  data  to  scroll  across  the  screen,  modifying  the  levels  at 
which  colors  change,  modifying  the  color  spectrum. 

Save  delimited  segments  of  digitized  data  to  disk.  The  maximum  save  buffer 
length  is  384  kbytes. 

Replay  spectrogram  data  which  has  been  saved  during  an  earlier  session. 

The  hardware  unit  consists  of  a  PC  AT  with  an  EGA  display  and  hard  disk,  an  analog- 
to-digital  (A/D)  converter  board  and  a  digital  signal  processing  board;  these  added  compo¬ 
nents  cost  about  $2500.  In  addition,  a  bandpass  filter/preamp  device  such  as  “Frequency 
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Devices  9002”  (about  $2800)  can  be  used  between  the  audio  tape  and  the  A/D  system  to 
control  input  gain  and  to  prevent  aliasing.  The  cost  is  low  compared  to  commercial  spec¬ 
trogram  machines.  The  package  was  tested  on  a  number  of  portable  PC’s  (such  as  the  NEC 
PowerMate  Portable),  which  are  well  suited  for  field  instrument  use.  This  allows  powerful 
signal  processing  and  data  acquisition  capabilities  to  be  brought  into  the  field  at  modest 
cost. 

The  instrument  development  was  motivated  directly  by  the  need  of  WHOI  biologists 
to  scan  extensive  analog  data  sets  of  marine  mammal  vocalizations,  where  the  goal  is  to 
extract  digital  representations  of  exemplary  marine  mammal  calls.  It  is  difficult  for  many 
researchers  to  afford  the  spectrogram  analysis  workstations  that  are  available  commercially. 
In  any  case,  such  instruments  are  not  suitable  for  field  use,  particularly  in  the  remote 
locations  frequented  by  WHOI  researchers.  The  developed  package  allows  for  efficient  data 
analysis  and  acquisition  capabilities  by  Institution  researchers  at  a  reasonable  cost,  and 
thus  contributes  to  their  overall  observational  capabilities. 
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System  Overview 


The  main  hardware  element  is  a  PC-AT  compatible  personal  computer  with  either  an 
80286  or  80386  CPU.  An  8  MHz  machine  is  adequate,  although  faster  clock  speeds  and 
the  substitution  of  an  80386  CPU  result  in  correspondingly  faster  execution  speeds.  The 
PC  Intel  80286  or  80386  CPU  is  used  as  the  display  and  storage  controller  and  system 
supervisor.  Display  on  a  compatible  monitor  uses  the  EGA  graphics  standard  with  640x350 
pixel  resolution.  A  gray  scale  can  be  used  with  monochrome  EGA,  such  as  that  found  on 
Supertwist  LCD  and  gas  plasma  screens  common  to  portable  computers,  but  a  color  display, 
which  maps  signal  amplitude  to  a  color  palette,  makes  interpretation  easier  for  the  user. 

The  VOICE  spectrogram  uses  the  SKY321-PC  fixed-point  (integer)  digital  signal  pro¬ 
cessor,  which  includes  the  Texas  Instruments  TMS32010  digital  signal  processing  chip  as  the 
numerical  engine.  As  the  data  memory  is  double  ported,  it  can  be  accessed  simultaneously 
by  the  PC  and  the  TMS320.  An  efficient  memory  controller  can  accomplish  simultaneous 
accesses  with  only  occasional  wait  states  issued  to  the  PC  or  the  TMS320.  This  efficient 
memory  management  scheme  was  the  primary  motivation  for  selecting  the  SKY321-PC 
add-in  board.  Since  relatively  large  amounts  of  data  are  moved  across  the  interface  at  each 
frame,  the  data  handling  efficiency  becomes  more  important  than  the  relative  clock  speed 
trade-offs  between  various  TMS320  chip  versions. 

The  analog  data  is  acquired  and  digitized  by  the  MetraByte  DASH-16  A/D  board; 
however,  any  PC-compatible  board  with  a  DMA  capability  can  be  accommodated.  At  ac¬ 
quisition  rates  of  up  to  100kHz,  the  DMA  overhead  becomes  significant,  adding  up  to  two 
seconds  to  screen  scroll  time  for  an  8-bit  DMA  board.  For  this  reason,  PC-AT  compatible 
boards  with  16-bit  transfer  capability  are  preferred. 


Optimizing  the  Hardware  Interfaces 


For  a  spectrogram  to  be  displayed  in  real  time  along  with  an  audio  signal,  a  fast 
scrolling  and  processing  rate  is  critical;  details  of  the  spectrogram  would  be  lost  without 
this  turnaround  speed.  To  achieve  this  during  real-time  mode,  there  are  three  indepen¬ 
dent  subsystems  operating:  the  DMA  activity,  the  TMS320  numerical  data  processing,  and 
the  CPU  data  transfer  and  screen  display  routines.  Care  was  taken  to  balance  the  load 
between  the  TMS  and  the  Intel  80286  processors;  the  efficient  coupling  of  these  two  pro¬ 
cessors  largely  determines  the  ultimate  speed  of  the  real-time  display  and  the  usefulness  of 
the  spectrogram.  The  80286  is  concerned  primarily  with  data  formatting  and  display,  the 
TMS  with  the  numerical  routines. 

To  reduce  acquisition  overhead,  the  A/D  board  is  used  in  a  continuous  DMA  mode, 
where  a  circular  buffer  is  repeatedly  loaded  with  newly  acquired  data.  Up  to  384k  (six  64k 
pages)  of  memory  storage  is  made  available  to  the  acquisition  DMA,  and  it  is  continuously 
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filled  with  the  data.  The  DMA  is  redirected  to  a  new  page  after  a  terminal  count  (TC)  is 
c  received  upon  completion  of  a  page.  The  TC  is  wired  to  a  system  interrupt;  the  interrupt 
routine  assigns  a  new  DMA  page  to  the  data  acquisition  buffer,  and  updates  the  buffer 
list.  Only  one  instruction  is  required  to  reassign  a  page:  only  the  page  register  needs  to 
be  modified.  The  principal  advantage  of  this  scheme  is  the  availability  of  a  relatively  large 
buffer,  with  no  requirements  for  external  memory  cards.  The  CPU  polls  the  DMA  IC  for  the 
most  recently  written  address  and  downloads  the  most  recently  written  data  segment  to  the 
TMS.  When  expand  mode  is  entered,  the  DMA  activity  is  stopped,  and  the  memory  buffer 
referenced  from  the  last  address  written.  This  method  is  relatively  simple  to  implement,  and 
guarantees  that  there  will  be  no  lost  samples,  since  the  DMA  is  writing  continuously.  This 
allows  for  work  on  complex  data  sets,  such  as  high  bandwidth  vocalizations  (e.g.  dolphin 
whistles)  or  long  records  such  as  whale  songs. 

The  PC  transfers  the  data  between  the  circular  data  buffer  and  the  TMS320.  The  ac¬ 
quired  data  typically  is  offset  binary,  which  is  converted  to  two’s  complement  and  normalized 
with  a  software-selectable  gain  before  being  downloaded  to  the  TMS. 

The  TMS320  operates  on  a  data  buffer  downloaded  to  its  memory  and  outputs  a  flag 
signifying  that  a  completed  data  buffer  has  been  placed  at  a  predetermined  location  in  its 
memory.  The  location  of  the  input  and  output  buffers  is  controlled  by  the  PC  microproces¬ 
sor,  which  implements  a  double  buffering  scheme  so  that  a  set  of  output  and  input  buffers 
is  manipulated  by  the  PC  while  the  TMS320  is  operating  on  a  distinct  set.  The  buffers  are 
flip-flopped  at  each  frame. 

Program  Structure 

The  software  was  developed  within  the  MS-DOS  3.2  operating  system  using  Microsoft 
Version  5.0  C  compiler  and  Microsoft  Macro  Assembler  Version  4.0.  The  Version  5-0  C  com¬ 
piler  was  used  specifically  to  take  advantage  of  the  graphics  functions  that  were  introduced 
at  this  version  level.  In  addition,  routines  unique  to  the  SKY  signal  processing  board  are 
integrated  into  the  VOICE  software  structure.  The  SKY321  environment  includes  a  host- 
resident  SKY321  macro  operating  system,  a  SKY321  macro  preprocessor,  and  a  SKY321 
assembler. 

The  primary  functions  of  the  main  program  are  to  control  interaction  with  the  user 
via  the  initial  command  line  and  the  keyboard;  output  processed  data  to  the  screen  and, 
optionally,  to  save  raw  data  to  a  disk  file;  and  to  accept  and  transfer  data  addresses.  In  the 
initialization  section,  the  program  also  loads  program  and  data  files  to  the  TMS  board  and 
turns  on  the  digitizing  card. 

The  CPU  controls  all  output  to  the  monitor.  The  EGA  driver  is  accessed  directly  with 
register  commands;  a  fully  register-compatible  graphics  subsystem  is  required.  To  address 
the  hardware  through  DOS  interrupts  would  reduce  the  display  speed  at  least  threefold, 
rendering  the  system  useless  for  practical  bioacoustic  analysis.  Significant  effort  was  spent 
to  insure  careful  optimization  of  the  graphics  routines. 

The  dimensions  of  the  screen  affect  the  display  scrolling  rate,  so  they  were  chosen  to 
facilitate  screen  speed,  and  to  allow  sufficient  space  for  annotations  on  the  margins  of  the 
screen.  The  EGA  map  allows  for  a  screen  display  of  two  windows,  each  with  128  pixel  rows, 
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one  above  the  other,  along  with  system  configuration  information.  The  writing  of  pixels 
directly  to  the  EGA  video  RAM  is  a  two-step  operation.  When  each  256-point  array  has 
been  returned  to  main  memory  from  the  TMS  board,  with  each  element  of  the  array  coded 
for  color,  half  the  array  (128  points)  is  sent  as  a  column  of  pixels  to  the  righthand  end  of 
the  display  area,  where  there  is  space  available  for  eight  pixel  columns.  When  this  group 
of  columns  is  filled,  the  entire  display  is  moved  left  by  eight  pixel  columns,  so  that  the 
lefthand  array  set  scrolls  off  the  screen,  and  room  is  provided  on  the  right  to  receive  new 
pixel  columns  of  data.  The  factor  8  was  chosen  because  EGA  treats  8  horizontal  pixels  as  a 
unit;  each  EGA  unit  is  8  pixels  wide  by  1  deep.  This  characteristic  enables  smooth  scrolling 
from  top  to  bottom  of  a  display;  however,  the  application  for  which  VOICE  was  developed 
required  scrolling  from  right  to  left,  the  usual  convention  with  bioacoustic/speech  analysis 
display  tools. 

The  scrolling  routine  required  optimization,  as  each  data  point  representing  a  screen 
pixel  must  be  physically  remapped  to  a  new  location  at  each  screen  scroll.  As  the  screen 
windows  are  128  x  480  bits  each,  and  a  screen  scroll  time  represents  the  time  for  a  single 
pixel  to  move  across  all  480  columns,  the  screen  scroll  routine  could  be  a  system  bottleneck. 
Fortunately  the  EGA  standard  provides  for  a  32-bit  (8-pixel)  move  with  a  single  (block 
move)  instruction,  and  this  allows  the  screen  to  be  scrolled  in  three  seconds  when  there  is 
no  other  system  activity  on  an  EGA  system  with  no  wait  states  at  10  MHz  operation. 

The  screen  write  commands  are  not  as  critical  as  the  scrolling.  The  bit-mapped  data 
are  written  to  the  screen  with  direct  register  command,  and  the  stationary  information 
outside  the  windows  is  handled  through  the  high  level  graphics  library  provided  with  the 
Microsoft  Version  5.0  C  compiler.  These  screen  annotation  functions  are  used  to  display 
cursors,  draw  and  fill  colorcoded  boxes,  and  to  write  prompts  and  data  values  to  the  screen 
margins  surrounding  the  spectrogram  display. 

Interaction  between  the  PC  and  the  SKY321  occurs  on  two  levels,  through  programs 
executed  on  the  PC,  and  through  those  executed  in  the  SKY  board.  The  full  list  of  SKY 
modules  used  by  the  VOICE  program  is  listed  in  Table  1.  The  execution  of  the  FFT 
processing  programs  is  assigned  exclusively  to  the  SKY  board.  The  only  role  played  by 
main  program  VOICE  is  to  download  the  appropriate  program  and  a  sine  table  for  ail 
transforms  up  to  lk,  during  execution.  This  is  done  just  once,  at  initialization.  A  library 
of  FFT  programs  is  available,  reflecting  such  parameters  as  the  display  complexity  and 
color  maps,  and  the  data  buffer/FFT  size.  The  PC  microprocessor  selects  the  appropriate 
program  based  on  the  configuration  parameters.  The  TMS320  programs,  written  in  TMS320 
assembly  language,  are  carefully  optimized,  as  their  execution  can  be  a  significant  bottleneck 
to  processing  speed.  The  SKY  library  function  modified  for  VOICE  is  FT256,  a  complex 
Fast  Fourier  Transform.  In  order  to  optimize  the  division  of  processing  resources  between  the 
PC  and  the  SKY  board,  FT256  was  augmented  to  compute  squared  magnitude  of  the  FFT 
values  and  to  assign  color  codes  to  the  processed  data.  The  values  returned  to  the  PC  from 
the  SKY  board  could  immediately  be  sent  to  the  EGA  display  without  further  processing. 
The  FFT  library  function  was  adapted  for  the  spectrogram  display.  The  program  remains 
active  in  the  SKY  board  throughout  a  session,  repeatedly  processing  data  sent  to  it  from 
the  PC,  and  returning  the  output  values  on  command  from  the  main  VOICE  program. 
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Table  1 

Integration  of  SKY321  Modules  with  Program  VOICE 


Description 

Implementation 

fftcolor.320 

FFT  program  executed 
on  SKY  board 

downloaded  to  SKY  board 
during  VOICE  execution 

sintab.dat 

lk  FFT  sine  table  used  by 

SKY  board  for  FFT  calculations 

downloaded  to  SKY  board 
during  VOICE  execution 

hsmos.h 

group  of  functions  to  control 
interface  (I/O)  between  PC 
and  SKY  board 

included  in  main  program 

VOICE  as  header  file; 
invoked  by  VOICE  program 

S32asm.obj 

linkable  SKY  object  module 

included  in  VOICE  link 
command  to  enable  hsmos  routines 
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SKY  supplies  routines  for  initializing  and  controlling  the  SKY321,  the  “Host-resident 
SKY320  Macro  Operating  System”  (hsmos).  The  main  VOICE  program  controls  execution 
of  these  modules.  The  file  hsmos.h  includes  14  functions  which  start  and  stop  TMS  process¬ 
ing,  and  transfer  data  between  the  TMS  and  the  PC.  The  reference  manual  gives  details 
about  eight  of  these  functions;  we  found  this  scheme  to  be  restrictive,  and  so  bypassed 
several  of  the  eight  top-level  functions  to  directly  address  the  lower  level  functions.  The 
source  code  is  commented  sufficiently  to  make  this  course  of  action  reasonable.  While  the 
processing  program  is  running,  the  TMS  is  stopped  briefly  by  the  PC  once  per  data  frame 
in  order  to  update  the  input/output  buffer  locations  for  the  next  frame.  These  parameters 
must  be  loaded  into  the  TMS  program  memory,  and  the  SKY  PC  board  requires  that  the 
TMS  be  stopped  before  its  program  memory  can  be  accessed  by  the  PC. 

Operation  of  the  digitizing  card  is  controlled  by  a  group  of  C  functions  from  the  main 
program;  they  turn  the  digitizer  on  or  off,  and  read  the  last  address  accessed  by  the  CPU’s 
DMA.  Input  data  are  sent  directly  from  the  DMA  board  to  the  SKY  board,  with  the  main 
program  VOICE  specifying  the  addresses  of  the  input  buffer  and  the  TMS  buffer.  The 
digitizing  card  and  the  TMS  board  thus  are  coordinated  so  that  data  values  are  transferred 
to  the  main  program  only  once  —  when  they  are  ready  for  display. 

The  source  code  for  VOICE  is  comprised  of  the  main  program  and  multiple  functions 
written  in  both  C  and  assembly  language;  a  brief  description  of  each  function  is  given  at 
the  end  of  this  report.  The  SKY  hsmos.h  header  file  is  included  in  the  main  program  so 
that  it  can  be  compiled  by  the  C  preprocessor.  Each  module  is  compiled  using  Microsoft  C 
large  model.  We  collected  all  object  files  in  a  library,  vce.lib.  Note  that  the  FFT  program 
fftcolor.320  is  not  part  of  the  vce  library;  it  is  a  binary  file  which  was  assembled  using  the 
SKY  assembler  SKYMPP  during  program  development.  The  compiled  VOICE  package  is 
linked  with  SKY320  object  code  (S32asm.obj),  supplied  by  SKY.  The  SKY  system  requires 
that  the  /ST32767  option  be  specified  during  linking.  As  an  example,  here  is  some  sample 
code  to  compile  a  C  function  named  labelv.c,  add  it  to  the  library,  and  then  link  it  with 
the  SKY  routines  to  produce  an  executable  version  of  VOICE: 

CL  /AL  /c  labelv.c 
lib  vce-+labelv; 

link  /ST32767  voice+S32asm, voice, vce.lib; 
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Table  2 

Installation  Guide 

MetraByte  DASH-16  high  speed  A/D  converter  board 


Before  installing  the  board  in  the  machine,  set  the  following  switches,  using  a  small  screw¬ 
driver  or  a  pen.  Do  not  use  a  pencil. 


Base  Address  switches: 

1  -  off 

2  -  off 

3  -  on 

4  -  on 

5  -  on 

6  -  off 


DMA  slide  switch:  level  1 

CHAN  CNFG  (channel  configuration)  slide  switch:  8 
A/D  slide  switch  (controls  input  range):  BIP  (bipolar) 

Gain:  Set  for  appropriate  input  range 


switch 

+/-10v 

+/-5v 

+/-2.5v 

+/-lv 

4- /-0.5v 

Bi 

on 

off 

off 

off 

off 

Hte; 

off 

on 

off 

off 

off 

OH 

off 

off 

on 

off 

off 

IBP; 

off 

off 

off 

on 

off 

EH 

off 

off 

off 

off 

on 

SKY321-PC  Coprocessor  Board 

Set  data  memory  base  address  to  D000:  at  JP2,  jumper  3  -  4. 

Set  program  memory  base  address  to  C800  :  at  JP4,  jumper  3-12,  4-11,  6-9,  7-8. 

Install  the  A/D  board  and  the  SKY  coprocessor  board  in  any  free  full-width  slots. 

Copy  all  SKY  software  into  a  \TMS  directory.  Copy  dsp321.dat  from  the  VOICE  floppy  to 
the  \TMS  directory. 

Test  the  coprocessor  board  by  running  TST321.  Be  sure  the  test  runs  at  least  twice. 
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Using  the  Spectrogram  Instrument 


Installation 


Installation  of  the  hardware  should  be  done  by  someone  who  is  able  to  remove  the  cover 
from  the  PC  and  install  the  two  accessory  boards.  The  MetraByte  DASH-16  A/D  board  has 
switches  and  jumpers  that  must  be  set  before  the  board  is  installed  in  a  slot.  Instructions 
for  setting  these  are  given  in  Table  2.  The  A/D  system  also  includes  a  box  external  to 
the  PC,  a  “Screw  Terminal  Accessory  Board  Model  STA16”.  The  input  cable  from  a  tape 
deck  or  microphone  feeds  into  this  box;  a  ribbon  cable  from  the  box  then  is  plugged  into  a 
connector  on  the  edge  of  the  A/D  board.  This  configuration  may  be  modified  so  that  the 
input  cable  runs  through  an  antialiasing  filter  before  reaching  the  STA16  box.  The  audio 
signal  can  be  heard  while  the  spectrograms  are  displayed  if  a  split  input  cable  is  used,  with 
one  cable  attached  to  the  STA16  box  and  the  other  to  an  amplifier.  The  SKY321  board 
must  have  two  base  addresses  set;  it  is  then  installed  simply  by  sliding  it  into  any  available 
slot  in  the  PC. 

In  order  to  run  the  program,  the  following  files  are  required  in  the  current  directory: 

voice.exe  main  executable  program 

fftcolor.320  TMS320  executable  program 

sintab.dat  TMS320  FFT  sine  table 

Running  the  Program 


The  program  may  be  run  simply  by  typing  “voice”  from  a  directory  containing  all  the 
above  files.  An  audio  line  output  standard  signal  (l.Ov  RMS  =  0  dB)  at  the  digitizer  input 
is  assumed.  The  sample  frequency  is  50kHz,  resulting  in  a  signal  display  of  ten  colors 
from  DC  to  25kHz,  with  the  top  window  displaying  the  spectrogram  of  the  signal,  and  the 
bottom  window  showing  a  narrow  waveform  envelope,  with  the  clipping  window  activated. 
Default  values  delimiting  each  color  are  1,  2,  4,  8,  16,  32,  64,  128,  192,  256,  320,  and  32767, 
which  display  the  optimum  spectrograms  of  ocean  mammal  sounds.  No  data  are  saved. 
The  program  is  exited  by  typing  ‘x’. 

Interaction  with  the  VOICE  program  is  on  two  levels:  through  command  line  options, 
and  through  specified  keystrokes  while  the  display  is  running.  The  command-line  options 
configure  the  system  with  desired  operation  details,  i.e.,  optimized  parameter  settings  for 
particular  animal  vocalizations  or  data  acquisition  modes.  Once  running,  the  program  is 
interactive  through  the  keyboard. 


13 


Table  3 

Command  Line  Options 


-cc  change  color  map  via  the  colors.dat  file 

-cl  change  color  threshold  level  via  the  levels.dat  file 


-fl  sample  one  channel;  display  spectrogram  in  top  window 


-fib  sample  one  channel;  display  spectrogram  and  a  bar  graph  indicating 
RMS  signal  amplitude  (default) 


-fie  sample  one  channel;  display  spectrogram  and  the  lower  window  of 
the  RMS  signal  amplitude 

-i  #  set  the  size  of  the  incremental  step  used  to  read  a  file  of 
spectrogram  data 

-n  #  set  number  of  points  per  transform,  zero  pad  the  rest  (default  =  128) 


-r  assign  a  file  of  previously  saved  spectrogram  data  to  the  input  stream 

-s  #  set  sample  frequency  in  kHz,  using  an  even  number;  displayed  spectrogram 
is  half  the  sample  frequency  (default  =  50kHz) 


-t  #  set  interval  (seconds)  for  display  across  top  of  screen  (default  =  1.0) 
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Command  Line  Options 


The  command  line  options  can  be  invoked  on  line  at  run  time,  or  listed  in  a  batch  file 
for  repeated  use.  If  the  system  is  to  be  used  in  one  mode  only,  and  ease  of  use  is  a  prime 
factor,  the  defaults  can  be  changed  (in  function  cmdopt.c)  to  reflect  the  required  features, 
and  the  software  package  recompiled  and  linked.  A  typical  command  line  might  be: 

VOICE  -fie  -t  .5  -s  15 

This  particular  line  would  result  in  a  display  of  a  spectrogram  across  the  top  of  the  screen, 
with  the  waveform  envelope  in  the  lower  window  stretching  from  one  border  of  the  window 
to  the  other;  time  ticks  across  the  top  of  the  screen  every  half  second;  and  a  sampling 
frequency  rate  of  15kHz  (instead  of  the  default,  50kHz). 

The  display  of  a  spectrogram  in  the  top  window,  with  the  signal  envelope  appearing  in 
a  bar- type  display  at  the  right  of  the  bottom  window,  is  the  default,  specified  in  the  list 
of  command  line  options  as  “-fib”.  This  mode  is  particularly  useful  for  fast  scrolling  of  a 
single  spectrogram.  When  the  display  leaves  real-time  mode,  and  is  used  to  examine  data 
stored  in  memory,  the  bar  indicator  is  replaced  with  a  signal  envelope  the  full  width  of  the 
lower  window;  during  memory  operations,  speed  of  scrolling  is  not  a  factor.  The  real-time 
spectrogram  display  can  also  be  used  with  a  signal  amplitude  display  which  stretches  the 
full  width  of  the  bottom  window  (“-fie”)  when  the  signal  waveform  is  of  inherent  interest, 
such  as  for  voice  amplitude  analysis,  or  when  it  is  critical  to  guard  against  clipping  of  the 
digitized  signal. 

The  sampling  command  “-s  #”,  where  #  represents  some  number,  determines  the  digi¬ 
tizer  sampling  frequency.  In  order  to  determine  the  proper  sampling  frequency  for  a  partic¬ 
ular  signal,  you  must  first  determine  the  maximum  frequency  at  which  the  signal  contains 
energy.  This  can  be  done  using  VOICE  by  setting  the  sampling  rate  higher  than  twice  the 
likely  highest  frequency  of  the  signal,  and  then  using  the  spectrogram  to  measure  the  high¬ 
est  frequency.  The  sample  rate  should  be  set  to  2.5  times  the  highest  frequency,  or  higher. 
This  is  a  critical  factor  in  achieving  a  meaningful  spectrogram.  For  example,  a  dolphin 
whistle  with  a  maximum  frequency  of  about  20kHz  produces  a  clearly  defined  spectrogram 
at  a  sampling  rate  of  50kHz.  At  the  same  sampling  rate  a  humpback  whale  song  is  scarcely 
visible;  however,  if  the  sampling  frequency  is  set  at  2  or  3kHz,  the  same  whale  song  appears 
in  full  detail.  The  spectrogram  display  on  screen  is  half  the  sampling  frequency;  a  50kHz 
sampling  rate  yields  a  25kHz  spectrogram  signal.  The  desired  sample  frequency  is  entered 
in  kHz.  Note  that  the  system  may  not  be  able  to  synthesize  the  exact  frequency  requested 
for  all  cases,  since  the  sample  frequency  is  derived  by  integer  division  of  a  1  MHz  oscillator. 
In  that  case,  the  closest  available  frequency  is  selected.  With  the  the  DASH-16  board,  the 
maximum  sample  frequency  is  100k  samples/sec.  If  the  desired  sample  frequency  exceeds 
the  board  capabilities,  the  highest  possible  sample  frequency  is  selected.  Once  the  sampling 
rate  has  been  chosen,  either  by  tahing  the  50kHz  default  or  by  using  the  “-s”  option,  that 
rate  remains  in  place  for  the  entire  session.  To  change  the  rate,  the  user  must  exit  from  the 
program,  and  start  VOICE  again. 

For  very  low  frequency  sounds,  the  display  can  also  be  sharpened  by  using  the  tt-n  #” 
command.  This  selects  the  number  of  input  points  for  each  FFT;  the  default  is  128  (256/2). 
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The  FFT  size  presently  is  fixed  at  256;  the  “-n”  command  establishes  the  number  of  points 
within  the  256-point  transform.  If  n  points  are  used,  the  rest  of  the  FFT  input  is  zero- 
padded.  Generally,  decreasing  the  number  of  points  sharpens  up  the  display  of  broadband 
transients  at  the  expense  of  overall  display  quality.  This  effect  is  particularly  noticeable 
with  very  low  frequency  impulsive  sounds,  such  as  fish  grunts. 

Time  ticks  across  the  top  edge  of  the  top  window  mark  the  elapsed  time  for  sections  of 
the  display  to  scroll  across  the  screen.  The  default  is  for  one  second  between  ticks;  with  the 
tt-t  #”  command  it  can  be  changed  as  desired.  Choices  should  be  entered  as  decimals,  e.g., 
.5  for  half  a  second. 

Data  saved  to  file  during  a  previous  session  —  an  operation  described  in  the  section  on 
interactive  keystrokes  —  may  be  displayed  by  running  VOICE  with  the  “-r”  command  line 
option.  The  exact  format  is 


voice  -r  somefileid 

A  default  for  spacing  through  the  disk  file  has  been  set  which  provides  a  display  to  fill  the 
entire  window  width  when  the  source  is  a  disk  file  of  “moderate”  size,  an  arbitrary  choice 
by  the  programmer.  If  the  user  is  faced  with  a  vertical  sliver  of  color  when  he  attempts 
to  review  some  saved  file,  the  saved  data  file  is  probably  far  smaller  than  the  “moderate” 
size.  Such  a  file  can  be  viewed  by  using  the  “-i  #”  option.  The  choice  of  number  to  replace 
the  pound  sign  is  an  estimate  which  the  user  will  learn  to  make  with  experience.  Since  the 
default  “i”  number  is  138  x  6  (828),  a  good  place  to  start  is  138. 

The  VOICE  package  also  includes  two  data  file  templates  which  can  be  used  to  change 
the  color  spectrum  in  the  spectrogram  display  —  colors.dat  —  and  to  alter  the  levels  at 
which  colors  change  —  levels.dat.  They  may  be  modified  using  any  editor  to  suit  the  user’s 
requirements.  Note  that  the  choice  of  levels  should  be  keyed  to  the  output  of  the  FFT 
processing,  which  produces  maximum  values  lower  than  those  of  the  raw  data.  Restrictions 
on  these  data  files  are: 

•  a  maximum  of  16  values  may  be  used  in  each  file 

•  the  number  of  colors  and  levels  used  should  be  the  same 

•  color  values  following  the  last  used  must  be  “63” 

•  the  level  value  following  the  last  used  must  be  “0” 

If  these  templates  are  to  be  used,  the  program  needs  to  be  informed  by  the  use  of  the 
command  line  instruction  “-cc”  for  a  color  spectrum  change,  and  “-cl”  for  a  change  in  the 
color  threshold  levels. 
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Interactive  Commands 


The  interactive  commands  are  entered  on  the  keyboard  while  the  program  is  running. 
They  were  designed  specifically  to  make  the  program  easy  and  natural  to  use.  All  interac¬ 
tive  messages  and  prompts  appear  in  a  window  at  the  lower  right  of  the  screen;  if  any  illegal 
commands  are  entered,  a  message  is  displayed,  listing  the  keystrokes  that  can  be  used  at 
that  juncture.  On-screen  explanations  of  the  keystroke  functions  can  be  displayed  in  a  help 
window  which  appears  when  the  user  strikes  the  ‘h’  key.  The  keystroke  list  varies  depend¬ 
ing  on  which  mode  of  the  program  currently  is  operative;  only  those  commands  directly 
applicable  are  displayed.  Table  4  summarizes  the  commands,  and  flags  each  command  by 
mode.  If  the  command  is  relevant  to  a  running  display,  while  data  streams  across  the  dis¬ 
play  window,  it  is  flagged  as  “realtime.”  This  running  display  can  be  stopped  at  any  time 
for  closer  examination  of  a  spectrogram  in  “memory”  mode.  Commands  tagged  as  “global” 
are  valid  in  both  modes.  During  real-time  display  of  data,  the  relevant  commands  are 
‘x’,  T,  ‘h’,  ‘m\  and  <del>.  This  is  the  initial  default  mode  when  the  program  is  started. 
If  the  signal  which  appears  on  screen  merits  closer  examination,  touching  the  ‘m’  (memory 
mode)  key  will  halt  the  flow  of  new  data  and  invoke  a  display  of  up  to  384k  of  data  stored 
in  the  program’s  memory  buffer  —  the  same  data  that  was  on  screen  when  the  ‘m’  key  was 
hit.  To  return  to  the  running  display,  the  user  touches  the  spacebar. 

The  memory-mode  commands  are  all  related  to  functions  which  operate  on  the  384k  of 
data  which  were  captured  in  memory  when  the  ‘m’  key  was  hit.  This  buffer  full  of  data 
can  be  recalled  to  the  screen  for  careful  examination,  expanded  for  a  study  of  details,  and 
saved  to  a  disk  file.  The  commands  enabled  during  memory  mode  are  the  cursor  keys,  ‘h\ 
‘s’,  ‘x’,  <esc>,  <del>,  <enter>,  <space>,  and  the  signal  gain  controls. 

Hitting  the  ‘x’  key  on  the  keyboard  terminates  the  program  and  returns  to  DOS.  Im¬ 
proper  program  exit,  such  as  the  use  of  ‘Ctrl  C\  may  leave  the  data  acquisition  DMA  run¬ 
ning,  with  disastrous  consequences  to  subsequent  operations.  If  VOICE  crashes  the  system 
upon  exit,  it  is  probably  because  the  DMA  activity  was  not  stopped  during  a  nonstandard 
exit. 

The  ‘f’  key  will  freeze  the  spectrogram  display.  This  feature  is  useful  if  a  scrolling 
spectrogram  deserves  further  scrutiny,  or  is  to  be  plotted  by  dumping  to  a  dot  matrix 
printer.  The  two  requirements  for  making  such  a  plot  are  that  the  printer  allows  graphics 
mode,  and  that  the  DOS  command  “graphics”  or  “crtdump”  previously  has  been  invoked 
(usually  in  the  autoexec.bat  file).  The  user  should  be  aware  that  data  will  continue  to 
stream  through  the  memory  buffer  while  the  spectrogram  display  is  static  on  the  screen;  if 
the  user’s  next  action  is  to  display  the  contents  of  memory,  they  may  be  very  different  from 
the  screen  display  at  the  time  the  T  key  was  hit.  After  a  freeze  screen,  the  usual  action  is 
to  hit  the  spacebar  and  return  to  a  real-time  display. 

Both  the  save  and  the  expand  capabilities  of  the  program  depend  on  an  initial  display 
of  the  memory  contents,  which  occurs  when  the  user  hits  the  ‘m’  key.  Data  acquisition 
is  halted  by  this  action  so  that  the  contents  of  the  memory  buffer  will  be  available  for  a 
series  of  displays,  and  for  saving  to  a  file.  The  display  is  calculated  so  that  the  spectrogram 
derived  from  data  in  the  memory  buffer  always  fills  the  screen,  no  matter  what  percentage  of 
the  buffer  has  been  filled  with  data.  All  the  new  data  in  memory  scrolls  across  the  screen, 
stopping  when  it  reaches  the  left  margin.  If  the  entire  384k  buffer  has  been  filled,  the 
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Table  4 

Interactive  Commands 


mode 

key 

function 

global 

X 

exit  the  program 

global 

h 

display  help  window 

realtime 

f 

freeze  the  screen  (static  display) 

realtime 

m 

display  spectrogram  of  data  currently  in  memory 

memory 

s 

save  data  delimited  by  cursors 

memory 

<  FI  > 

move  left  cursor  to  the  left 

memory 

<  F2  > 

move  left  cursor  to  the  right 

memory 

<F3> 

move  right  cursor  to  the  left 

memory 

<F4  > 

move  right  cursor  to  the  right 

memory 

<  enter  > 

signal  that  cursor  positions  are  final 

memory 

<  esc  > 

recall  the  previous  screen 

global 

<  space  > 

restart  the  real  time  display 

global 

<  del  > 

erase  clipping  light  below  the  signal  amplitude  display 

global 

T 

increase  signal  gain  by  3  dB 

global 

i 

decrease  signal  gain  by  3  dB 

realtime 

- 

decrease  scrolling  speed 

realtime 

- 

increase  scrolling  speed 

spectrogram  is  somewhat  compressed  in  order  to  fit  on  the  screen  in  its  entirety;  however, 
if  the  user  should  hit  the  ‘m’  key  before  the  buffer  has  been  completely  filled,  only  new 
data  will  be  used,  so  that  the  spectrogram  may  be  expanded  as  it  stretches  from  one  side 
of  the  window  to  the  other.  A  partial  buffer  display  can  occur  when  a  user  requests  a  new 
memory  display  immediately  after  leaving  an  earlier  display.  At  a  low  sampling  rate,  such 
as  10kHz,  it  takes  a  long  time  for  the  buffer  to  refill. 

When  the  screen  has  filled  with  the  memory  display,  line  cursors  appear  at  each  edge 
of  the  window.  Thereafter  several  options  are  available  until  the  screen  is  returned  to  a 
real-time  display:  expansion  displays  of  portions  of  the  memory  buffer  data;  saving  to  disk 
file  of  any  portions  of  that  data;  redisplay  of  earlier  screens  of  spectrograms  —  the  “recall” 
feature. 

The  cursors  allow  the  user  to  take  advantage  of  the  program’s  capabilities  for  enlarge¬ 
ment.  The  <F1>  and  <F2>  keys  are  assigned  to  the  left  cursor,  the  <F3>  and  <F4>  keys 
to  the  right  cursor.  Each  tap  of  an  F  key  moves  the  line  cursor  eight  pixel  columns  (the 
width  of  a  text  column).  Holding  down  a  key  results  in  a  quick  succession  of  moves  by  the 
cursor.  When  both  cursors  delimit  the  portion  of  the  spectrogram  that  is  of  interest,  the 
user  may  choose  to  save  that  portion  by  hitting  the  ‘s’  key,  or  to  hit  the  <enter>  key  in 
order  to  see  that  portion  expanded  to  fill  the  window.  This  expand  capability  can  be  used 
on  each  screen  display  as  the  data  are  enlarged  repeatedly.  This  allows  for  the  examination 
of  events  too  detailed  to  be  observed  in  real  time.  For  instance,  a  whale  click  l/10th  of  a 
second  long  can  be  located  on  the  real-time  display,  but  the  details  of  the  amplitude  and 
frequency  distribution  can  be  seen  only  when  the  spectrogram  has  been  expanded. 

Each  expanded  display  fills  the  screen  window  completely,  from  side  to  side.  The  entire 
display  is  bracketed  by  vertical  bar  cursors  which  delimit  the  start  and  end  of  the  displayed 
data.  The  exact  matching  of  the  data  display  width  to  the  window  dimensions  enables  the 
system  to  track  changing  start  and  end  positions  in  the  data  as  the  cursors  are  moved.  The 
requested  data  are  sampled  in  480  evenly  spaced  data  segments,  using  a  calculated  step 
to  advance  the  starting  location  of  each  segment;  the  screen  window  is  480  pixel  columns 
wide.  This  offset  is  calculated  by  dividing  480  into  the  data  length  —  the  number  of  points 
between  the  start  and  end  of  the  delimited  data.  The  resulting  step  value  must  be  an  even 
number  so  that  the  data  values  can  be  read  in  pairs  of  sine  and  cosine.  If  the  value  is  an 
odd  number,  it  is  decremented  to  the  next  lower  multiple  of  4.  In  theory,  the  step  between 
starting  values  could  be  a  minimum  of  4.  In  practice,  the  scheme  produces  exactly  480 
columns  of  pixel  data  for  interval  steps  of  20  or  greater  (at  least  9600  bytes  of  data,  or  2400 
groups  of  sine-cosine  pairs).  When  steps  are  smaller  than  20,  the  need  to  decrement  a  step 
value  combines  with  granularity  problems  to  prevent  division  of  the  available  data  into  480 
even  sets.  The  result  is  an  excess  of  data  columns  —  too  much  data.  In  the  example  below, 
the  user  has  requested  9456  data  points. 

9456.  /  480.  =  19.7 
Sample  period  must  be  16 

With  a  sample  period  of  16,  the  480  pixel  columns  would  display  7680  points;  there  are 
1776  points  left  over.  One  choice  would  be  to  lop  off  the  extra  data  to  force  an  exact  fit  on 
the  screen.  However,  in  the  interest  of  veracity  we  chose  to  exclude  displays  which  would 
overflow  past  the  left  margin.  When  a  display  cannot  be  made,  a  message  appears  at  the 
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lower  right  of  the  screen;  although  the  data  cannot  be  displayed,  it  can  be  saved  to  a  disk 
file.  If  the  save  is  not  wanted,  the  previous  spectrogram  is  sent  to  the  display  window. 

The  ‘s’  command  saves  to  file  the  section  of  data  delimited  by  the  cursors.  The  data 
saved  is  the  raw  offset  binary  digitized  data.  A  prompt  requesting  a  filename  appears  at 
the  right;  the  user  enters  his  choice  of  filename,  followed  by  the  <enter>  key.  If  the  desired 
file  already  exists,  the  new  buffer  is  appended  to  it.  This  mode  is  useful,  for  example,  in 
cases  where  the  digitized  data  is  sorted  by  species,  such  as  when  scanning  a  tape  containing 
dolphin  and  whale  calls.  Examples  of  each  can  be  separated  into  the  respective  files  and 
saved.  The  disk  writing  operation  begins  immediately,  as  indicated  by  the  message  on 
screen.  When  it  is  completed,  the  message  announces  this  fact,  and  the  user  is  then  free  to 
move  the  cursors  for  another  expansion  (if  the  current  display  segment  is  not  too  small), 
make  another  save,  return  to  the  real-time  display,  or  to  recall  an  earlier  display. 

The  “recall”  feature  is  the  reverse  of  the  expand  operation.  After  several  screen  expan¬ 
sions,  the  user  may  wish  to  return  to  a  screen  display  which  occurred  early  in  an  expand 
series.  The  display  which  immediately  preceded  the  current  display  can  be  recreated  in 
the  window  by  hitting  the  <esc>  key.  This  key  can  be  used  repeatedly  to  step  backwards 
through  the  expand  series  until  the  original  display  of  memory  is  reached. 

The  arrows  on  the  cursor  pad  may  be  used  to  increase/decrease  the  signal  gain  in 
software  —  the  up  and  the  down  arrows  —  and  to  increase/decrease  scrolling  speed  —  the 
left  and  right  arrows.  These  arrows  will  work  only  when  the  <NumLock>  key  is  off.  The 
gain  is  a  software  value,  initially  set  to  0,  which  is  incremented  or  decremented  by  one  for 
each  keystroke;  the  value  can  be  either  positive  or  negative.  The  input  data  values  are 
multiplied  by  2  raised  to  the  power  of  the  gain  value  before  they  are  processed  by  the  FFT 
operation.  Note  that  scrolling  speed  cannot  be  increased  to  more  than  the  default;  the 
speed  increase  key  is  useful  only  when  the  scroll  speed  previously  has  been  decreased.  The 
gain  and  the  scrolling  speed  features  can  be  invoked  only  during  a  real-time  display;  they 
are  not  enabled  for  a  display  of  memory. 

Often  it  is  critical  to  know  whether  the  digitized  input  signal  is  clipping.  This  can  occur 
when  the  gain  of  the  analog  signal  saturates  the  A/D  converter.  A  clipping  indicator  has 
been  included  as  a  monitor  for  this  condition.  It  is  enabled  in  the  default  mode  of  VOICE 
where  the  signal  amplitude  is  displayed  along  with  a  spectrogram.  If  clipping  occurs,  the 
waveform  appears  to  overflow  into  a  small  vertical  bar  on  the  lower  right  of  the  screen. 
When  this  warning  of  too  much  gain  has  appeared,  it  can  be  erased  by  hitting  the  <del> 
key. 
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Future  Development  and  Applications 


The  VOICE  program,  which  initially  was  developed  to  answer  a  specific  need,  has 
evolved  into  a  versatile  tool  for  a  growing  number  of  applications.  Data  may  be  input 
from  analog  tapes,  from  a  live  signal  via  a  microphone,  or  from  disk  files  holding  binary 
data.  All  sources  produce  spectrograms,  the  main  function  of  the  program.  Data  may  be 
viewed  in  a  variety  of  modes  —  streaming  from  right  to  left,  halted  on  screen,  or  expanded. 
Depending  on  the  application,  the  spectrograms  may  be  viewed  with  no  saved  output; 
delimited  so  that  specified  raw  data  from  the  input  source  is  saved  to  disk  file;  or  the  screen 
display  may  be  reproduced  on  a  printer.  The  screen  display  itself  can  be  manipulated;  the 
amount  of  information  displayed  is  determined  by  the  user’s  choice  of  whether  to  view  the 
signal  waveform;  and  the  setting  of  the  interval  between  the  time  ticks  across  the  top  of  the 
screen  permits  estimation  of  the  length  of  each  signal. 

At  present  the  program  can  display  one  channel  of  data;  the  program  already  has  the 
“hooks”  to  add  the  capabilities  of  a  two-channel  and  a  four-channel  display.  Sampling 
frequency  is  now  limited  to  a  maximum  of  50kHz  by  the  A/D  board;  since  the  rest  of  the 
system  can  handle  up  to  100kHz,  this  constraint  could  be  removed  by  use  of  a  different  A/D 
input  board  and  the  replacement  of  the  present  data  acquisition  subroutine  in  the  software 
package.  Presently  the  largest  section  of  data  that  can  be  saved  with  a  single  command 
is  384K  (six  64K  pages),  but  subsequent  saves  can  append  data  to  the  same  file;  with  the 
addition  of  extended  memory  to  the  PC  and  some  changes  in  the  code,  a  larger  section  of 
data  could  be  saved  in  a  single  operation. 

These  are  a  few  possibilities  for  expanding  the  capabilities  of  VOICE.  In  the  short  time 
that  it  has  been  available  to  WHOI  investigators,  we  have  made  a  number  of  adaptations, 
some  as  simple  as  changing  the  defaults.  We  encourage  potential  users  of  the  system  to  use 
VOICE  in  its  present  form,  or  to  adapt  it  to  different  PCs  or  boards.  Listings  of  all  sources, 
the  executable  VOICE  program  and  required  files  are  available  on  floppy  disk  upon  request. 
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Source  Code  Listings 


Name 

File 

Description 

main 

voice.c 

Main  program 

voice.h 

voice.h 

Header  file  for  main  program  voice.c 

keydefs.h 

keydefs.h 

Header  file  for  modules  getkey,  getmem,  keys,  lcursor,  rev 

blkbox 

labelv  .c 

Draw  a  black  and  white  box  on  screen 

boxes 

labelv  .c 

Draw  several  columns  of  color  boxes 

calcstep 

calcstep.c 

Find  step  to  use  in  memory  buffer  read 

chanenv 

chanls.c 

Display  spectrogram  and  signal  amplitude 

chcolor 

change.asm 

Establish  color  palette 

clearhlp 

helpvce.c 

Erase  “help”  window  and  contents 

clearmsg 

messages.c 

Erase  text  from  message  center  box 

cmdopt 

cmdopt. c 

Handle  command  line  options 

dashget 

dashin.c 

Get  offset  for  current  data 

dashin 

dashin.c 

Start  data  acquisition  via  DMA 

dashoff 

dashin.c 

Stop  DMA  data  acquisition 

delmag 

delmag.c 

Delete  amplitude  clipping  light 

endint5 

endint5.asm 

End  DMA  end-of-page  interrupt  condition 

erase 

erase. asm 

Erase  contents  of  lower  window 

getkey 

keys.c 

Identify  key  hit  by  user 

get  mem 

getmem.c 

Set  up  for  display  of  memory  buffer  data 

handle 

handle.asm 

Handler  for  DMA  end-of-page  interrupt 

helpvce 

helpvce.c 

“Help”  window  text 

kayhdr 

kayhdr.c 

Prefixes  saved  data  with  Kay  Sona-Graph  format  5500 

keyopts 

keys.c 

Enable  interactive  key  options 

labelv 

labelv.c 

Draw  color  code  boxes  and  annotations 

lcursor 

lcursor.c 

Enable  movement  of  cursors 

linecurs 

lcursor.c 

Draw  a  vertical  white  line  (cursor) 

messages 

messages.c 

Text  for  message  center  box 

movefull 

move. asm 

Move  data  column  in  both  windows  to  left 

movetop 

move.asm 

Move  data  column  in  top  window  to  left 

movtolft 

bounds  .c 

Find  data  start  and  end  addresses 

movtorit 

bounds.c 

Find  data  start  and  end  addresses 

onechan 

chanls.c 

Display  one  frequency  channel 

putcurs 

putcurs.asm 

Draw  a  vertical  line  cursor  to  screen 

putlcurs 

putlcurs.asm 

Draw  a  left- bracket  cursor  to  screen 

putrcurs 

putrcurs.asm 

Draw  a  right-bracket  cursor  to  screen 

putft 

labelv.c 

Write  sampling  frequency  value  to  screen 

putmag 

putmag. asm 

Draw  signal  amplitude  display  to  screen 

review 

review  .c 

Read/display  data  file  saved  by  VOICE 

savscr 

savscr.c 

Save  data  to  disk  file 

scrntop 

screen. asm 

Draw  spectrogram  to  top  window 

setscr 

showdat 

totmsl 

txtprep 


screen,  asm 
showdat. c 
totms.asm 
txtprep. asm 


Reset  palette  to  default  colors 
Display  spectrogram  for  expand  modes 
Move  data  from  DMA  buffer  to  TMS  memory 
Configure  screen  to  allow  graphics  text 
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/•  Copyright  4  1989  by  1 -  Martin  and  J.  Catipovic 
ill  rights  reserved. 

VOICE. C  -- 

i  spectrogram  software  package  designed  for  nsa  with  a  PC- AT 
personal  counter  (with  hard  disk)  that  is  equipped  with  an  ESA  graphics 
board,  a  Sky321-PC  signal  processor  board,  and  a  HetraByte  DASH-16 
A/D  board. 

For  a  fall  description  of  the  spectrogram  instrument ,  a  user’s 
guide,  and  a  description  of  this  sof tsars  package,  see: 

VOICE  —  A  Spectrogram  Computer  Display  Package,  by  A.  Martin, 

J.  Catipovic,  and  P.L.  Tyack,  1989.  VHGI  Technical  Report  HHOI-90-22. 

eeeeeeeeeeeeeeee 

This  version  uses  the  THS  HSMOS . 

HSHOS  requirements : 

sintab.dat  and  fftcolor.320  must  be  available  at  runtime. 

Compile  as  a  large  modal,  sith  hsmoa.h  and  hsmos.def 
Link  eith  S32ASH . OBJ ,  and  sith  /stack: 32767 

IB:  To  change  the  THS  board  address  for  data  memory,  change: 

-  hsmos.def 

-  tmsaddr  variable  in  voice. c 

VOICE  conpile  requirements: 
voice. h 

vce.lib  -  all  object  code  for  this  package 

*/ 

/.,*•**•••.*.* . . . . 

t include  "voice. h" 

main(argc.argv) 
char  *argv[]  ; 

short  i,j,k,n,m; 

int  option,  dtyp,  tmark,  numchan,  dmapgtmp,  backoff; 
unsigned  int  clrbits,  dashtmp  >0; 
float  fmaz,  f  tmp ; 
time.t  start, finish; 

absptr  *  (int  *)absaddr; 

tknt  «  cycle  «  i  *  n  *  m  ■  0; 

envelope  ■  j  ■  0; 

speed  «  gain  »  0; 

lpl  •  locparml ; 

lp2  *  locparm2; 

dtyp  »  0; 

tmark  ■  0; 

scrntime  ■  0.0; 


/•IIITIALIZIIG*/ 

/* pick  up  the  coarnnd  line  options,  if  any,  plus  some  global 
initial izationse/ 

if((  option  »  cmdopt(argc,argv))  <  5  ) 
move  ■  movefull; 

else 

move  >  movetop; 

/•Set  up  the  byte  count  to  back  up  before  sending  date  to  tms  board*/ 
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backoff  -  512; 

clrbits  *  Oxfffc;  /*craata  a  nnabar  disisibla  by  4*/ 


if (  option  ■*  8) 

dtyp  ■  2;  /‘saved  output  ia  colorcoda  values,  not  data  —  not  enabled*/ 


/•calcnlato  sampling  frequency*/ 

faux  *  (1000. /( (double) (knual  *  knna2)))/2.0; 

/•claar  TKS  data  aaaory*/ 

taaptr  »  (nnsignad  Otnsaddr; 

•nabla.pO ; 

for  (i*0;  K32000;  i++) 
taaptr [i]  ■  0; 

/•load  in  fft  prograa,  ainatabla  and  color  laval  tabla*/ 

if (opt ion  "  2)  /•  2  aaapla  channala  -  not  anablad  */ 

{ 

/•If  ila('*ftcolor2 .320“  ,0,1500,  PHHD  ;  •/ 
nnachan  *  0x10; 

> 

•lea  if(option  ”1)  /•  4  aaapla  channala  -  not  anablad  */ 

/•lfila(“ftcolor2.320",0,1500,PlIKIO ;  •/ 
nnachan  *  0x10; 

> 

•laa 

{ 

lfila("fftcolor .320" ,0,1500,PHEX) ;  /*1  aaapla  channal*/ 
nnachan  -  0x00; 

> 

If ila ( "a int ab . dat " , loepaxal [2] , locparal [2] *2048 , OMSK) ; 
nritdaClocparal [5] , edge ,32) ; 

/•nrita  labala  and  annotationa  to  tha  acraan*/ 
labalv(option) ; 

/•nrita  ‘sapling  frequency  to  tha  acraan*/ 
pntf t (faax , aernt  iaa , opt ion) ; 

/•sat  np  for  tiaing  tick*  on  acraan  diaplay*/ 
nos  *  (donbla)((nasaac«clockO)/ctick) ; 

/•EXECUTIIO*/ 


if (opt ion  <  10  ) 

dashin(abaptr , nnachan) ;  /•  gat  analog  data*/ 

•laa 

rasiav(option) ;  /‘display  stored  binary  fila,  and  azit*/ 
dash  tap  •  dashgatO; 

/••••••••••••••••••••••Top  of  kaad-Ezacuta  Loop************************/ 

/•sat  np  for  keyboard  interrupts*/ 

•hila(l){ 

if  (kbhitO  ) 

kayopts (nnachan , opt ion , dtyp) ; 

/•load  starting  addrassas  of  input  data,  output,  sintabla,  color  lookup 
into  30  -  35  of  Prograa  aaaory*/ 
sritpa(30,lpl,12) ; 
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/•Use  an  S3H0S  rontina  to  start  processing*/ 
strt320(30) ; 

t 

/•  gat  tha  address  of  tha  input  array  so  that  tha  TKS  can  find  ita/ 
dashtap  ■  dashgat () ; 
dnapgtap  ■  daapaga; 

/•  ’backoff'  mat  ba  snbtractad  froa  tha  currant  offaat,  so  tha  rasolting 
pointar  Bay  ba  on  tha  paga  bafora  daapaga*/ 
shile(  (dash tap  ft  clrbits)  <  backoff  ) 

{ 

dashtap  »  dashgat () ; 

> 

dashtap  a  (dashtap  *  backoff)  ft  clrbits; 

absaddr  a  ((long) dnapgtap) <<28;  /«  this  dafinas  tha  segment*/ 

absptr  •  (ansignad  *) (dashtap  |  absaddr) ;/*dashtap  is  tha  offsat*/ 

/•hara’s  tha  pointar  for  tha  IMS  boards/ 

tasptr  a  (ansignad  *)((lp2[0]«l)  I  tasaddr) ; 

/adoanload  tha  data  array  to  aaaory  in  tha  IKS  board*/ 
anabla.pO; 

tasfat (absptr .tasptr ,ptknt,  gain); 

/•display  tiaing  ticks  across  top  of  scraan*/ 

if((doubla)(  (naasacaclockO )/ctick)  !»  nos) 

{ 

nos  •  (donbla) (nassac/ct ick) ; 

taark  a  x;  /*aaka  a  tin*  tick  on  tha  scraan*/ 

> 

•Isa 

taark  a  0; 

/•display  channals  of  frequencies*/ 
channal (taark) ; 
if (  cycla  >-8) 

{ 

ao*a() ; 
cycla  "  0; 

> 

for  (i*0;  Kspaad;  i*+) ;  /•controlled  by  keys  •/ 

/•Read  tha  rasnlts  froa  tha  THS320  into  oat pat  array  fftaal*/ 
raadda(lp2[l] .fftaal ,ff toot) ; 

/•snap  tha  location  paraaatars*/ 
ltap  a  lp2; 
lp2  -  lpl; 
lpl  ■  ltap; 

/•salt  for  THS320  to  finish  -  bit  3  is  sat  in  STCREO(IOBftSE)  •/ 

•hila( (inp(IOBiSE)  ft  0x08)  "  0); 

hlt320() ;  /•  TKS  board  is  all  dona  for  this  pass*/ 


>  /‘and  of  raad  and  axacnta  loop*/ 

> 

/•••.•••••,•••«•••••••*.•••*•••••••••••••••.•••••••••••••••••••,••••/ 

/*••*••*••*••••**••*••••••*•••••••••••*••••*•••••••••••*••••*•*••*••/ 


/•VOICE. B 

in  inclnda  fila  for  aoica.c. 


•/ 

/*  include  files*/ 


tinclud* 

•include 

tinclud* 

tinclud* 

tinclud* 

tinclud* 

tinclud* 

tinclud* 


<stdio.h> 

<stdlib.h> 

<  graph . h> 

<conio .h> 
<nath.h> 
<tiae.h> 
"hsaos .h" 
“keydefs .h" 


/•••••••••••••••••*, 

/•defines*/ 

td*f  in*  MU  SIZE  512 

tdafin*  BUFSZ  20 


/••••••••••••••••****i 

/•declare  functions*/ 


unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
unsigned  int 
int  dashinO 


chanenvO ; 
one chan ( ) ; 
too chan O ; 
scrntopO ; 
scrnbotO ; 
■ovetopO ; 
■oTefull ( ) 
handle () ; 
totnslO ; 
totns2() ; 
revies ()  ; 
(*«0T*)O  , 
dasbgetO ; 


(•tasfntX) , 


(•channel) () 


/ 


'/ 


•/ 


/*•**•*••**••****•******••••**•**•*•*•••***••*•*••*•*******•****•*/ 
/•declare  and  define  sons  global  variables*/ 

/•for  initializations  dependent  on  conud  line  options,  see  cadopt.c*/ 
int  *lpl,  *lp2,  »ltnp; 

int  ftsize.fftout ,ptknt ,lnk*j ,tknt ,lcol ,rcol; 

int  dnapage,  dnaknt,  lineknt,  doff inc ,  knual,  knun2; 

int  ff t val [HAXSIZE]  ,sintab[204S]  ; 

int  gain,  speed,  cycle,  hay,  rknt  •  0; 

unsigned  int  *dataptr,  *oldptr,  *absptr,  *tasptr; 

unsigned  int  envelope,  doffset,  endoff; 

unsigned  long  int  nevaec ,  shosaddr; 

float  tic;  /•user's  choice  of  tin*  nark  spacing*/ 

double  serntian ,  nos; 
clock. t  clock(void); 
dock_t  ctick; 

FILE  *strean; 

char  f  idid[16] ;  /•filenaae  to  shich  data  are  saved*/ 

char  u*wfid[lS] ; 

char  fidinCBQFSZ] ;  /•binary  input  data  (instead  of  analog)*/ 
char  colorl [258] ,color2[256] , color3[256] , color* [250] ; 
char  curcolor; 

int  leepaxal [6]  ■  {20*8 ,61*4,12000,0,0,30000}; 
int  locpaz>2[6]  ■  {4096,8192,12000,0,0,30000); 
unsigned  long  int  absaddr  *  0x70000000,  tasaddr  *  0x00000000 ; 
int  edge [16]  •  {0x0001,  0x0002  ,  0x0004  ,  0x0008  ,  0x0010, 
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0x0020,  0x0040,  0x0060,  OxOOcO,  0x0100, 
0x0140,  0x7 tit, 


0,  0,  0,  0>; 

lot  colors [16]  -  [0,  8,  33,  1,  9,  43,  16,  47,  61,  46. 

37,  0,  63,  63,  63,  63>; 

/••••••••••••••••••••a**********************************************/ 

/•••••••••••••**••**•••*•••*•••*•*•**••••*••••**••••*•••••••••••••*•••/ 

/*(EYDEFS .«•/ 


tdefine 

IF  0x100 

tdofino 

(.UP 

72  | 

ZF 

tdefine 

K_oon 

80  | 

IF 

tdefine 

(.LEFT 

76  | 

ZF 

tdefine 

I.BIGHT 

77  | 

ZF 

tdefine 

(.PGUP 

73  1 

ZF 

tdefine 

E_F1 

69  | 

ZF 

tdefine 

I.F2 

60  | 

ZF 

tdefine 

(_F3 

61  1 

ZF 

tdefine 

I.F4 

62  1 

ZF 

tdefine 

(.DEL 

S3  | 

ZF 

tdefine 

(.ESC 

27 

tdefine 

(.(ETURI  13 

tdefine 

(_SP*CE 

32 

/•the  following  sro  values  for  losorcaso  letters*/ 

tdefine  (_F  102 

tdefine  I_H  104 

tdofino  (_Z  120 

tdofino  (_S  115 

tdofino  (JH  109 


/*******************************************************************/ 

/*••****••*•••*•«•••*••••*••••**•**••••**•**•••••••*••••**••••*••*•*/ 

/•  BOUIDS.C 

bounds. c  —  Thos*  function*  dofino  the  stsrt  and  end  locstions  of  s 


portion  of  data  (  in  the  »«aorj  buffer)  that  has  boon  delinitad  with 
lino  cursors  bp  the  user. 

Variables  to  bo  defined  for  getaea.c  : 

again  -  kount  of  pagos  to  bo  road  (IB:  pages  are  4, 5, 6, 7, 8, 9 
with  beginning  page  containing  data  for  the  last  page, 
so  that  ’again’  for  6  pagos  *  6  for  7  iterations,  0-6) 
pagonoo  -  starting  page 
pagolast-  ending  page 
doff sot  -  starting  offset 
ondoff  -  last  offset 

•/ 

tin elude  <stdio.h> 

noxtorit (tapoff .loopknt , jknt , iknt .page) 
unsigned  int  etapoff,  jknt,  epage ; 
int  loopknt,  iknt; 

unsigned  int  oldi; 
int  i,  j; 

/•lot*:  so  anst  aultiply  offset  *  lcol  *  8  using  nested  loops; 
else  iknt  is  too  big  to  fit  into  an  integer*/ 
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iknt  *»  f;  /•  8  pixel*  per  colon)  novo  */ 

lor<  J  *  0  ;  j  <  jknt  ;  j*+) 

{ 

for(  i  -  0  ;  i  <  iknt  ;  i*+) 

{ 

oldi  *  »tnpoff ; 

•tnpoff  »  • tnpoff  *  1; 

/•BOV  oast  •••  if  tnpoff  ha*  gone  froa  85636  to  0*/ 
if C  e tnpoff  <  oldi  ) 

•tnpoff  »  0; 

•peg*  ■  *p*g*  ♦  1; 

if (  'peg*  >  9  )  *peg*  »  4; 

— loopknt ; 

> 

> 


re torn ( loopknt) ; 

> 

/••••••••••••••••••••••••••••••••••••*•••••••••••••••••••••••••••••••••/ 

noetolft (tnpoff ,loopknt , jknt , iknt ,pag«) 
assigned  int  • tnpoff ,  jknt,  •page; 
int  loopknt,  iknt; 

{ 

int  i,  j; 

iknt  *“  8; 

for(  j  ■  0  {  j  <  jknt  ;  j*+) 

{ 

for(  i  »  0  ;  i  <  iknt  ;  i++) 

{ 

•tnpoff  *  *tnpoff  -  1; 
if (  • tnpoff  ■»  0  ) 

{ 

— loopknt ; 

•peg*  “  *pege  -  1; 

if (  *pege  <  4  )  *pege  •  9; 

•tnpoff  ■  65535; 

> 

> 


retarn(loopknt) ; 

> 


/••••••••••••••••••••••*•••,••••••••••••••••••••••••,•••••••.••••••,/ 

/•••••••••••••••*••••••••••**••••••*•••••••••*••••••••••••••••••••••/ 

/•CALCSTSP.C 

celcstep.c  —  celcnletes  increnentel  step  to  be  need  shea  reeding  date 
froo  neaory  bnffer  for  options  ’save’  and  ’prior’  so  that 
the  resulting  display  will  fill  the  screen  exactly. 

•/ 

/••••••••*••••••*•••*•••••••••••••••••••••••••••••••••••••••••••••••••/ 


•include  <stdio.h> 
•include  <stdlib.h> 
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Cllcittp (kat ) 

1st  kat;  /•  ’again’  la  g«t—.c  */ 

{ 

axtarn  nsaigsad  iat  doff act,  aadoff; 

lat  pagatap,  pagaknt; 

long  maaigaad  iat  tapatap,  itap; 

pagatap  »  kat; 

if (  pagatap  “  0  ) 

{ 

tapatap  ■  ((unaignad  iat  )aax( aadoff  .doff  aat)  - 
(aaaigaad  int)aia(aadoff ,doffaat)) ; 
tapatap  ■  (  ( (float) tapatap) /480 .) ; 

> 

alaa  if (  pagatap  >  0  ) 

{ 

itap  •  68636  -  doff aat; 
tapatap  *  aadoff; 

/a  saa  if  tha  tao  partial  pagaa  addad  togathar  Bala  up  aora  thaa 
a  ahola  paga  (04k) a/ 

pagaknt  -  0; 

tapatap  ♦“  itap; 
if (  tapatap  >  65836  ) 

{ 

pagaknt  »  1; 
tapatap  -*  05536; 

} 

tapatap  *  ((  ((float)tapatap)/480.)  ♦  0.5  )  *  (pagaknt*138) ; 

if (  pagatap  >  1  ) 

{ 

t^atap  (pagatap-1)  a  138;  /a  for  daaknt  >  2  •/ 

> 

ratura(tapatap) ; 

> 

> 


;CIilQE. AfH 

» 

; Writ a  diraetly  to  tka  ESI  ridao  kiH.  Thia  rontina  aaauaaa  tha  Tidao  drirar 
; ia  IBR  coapatibla  aad  aupporta  EDA  aoda  101  (  640x350,  16  colora) 

* 

.TEXT  BEQUEST  BYTE  PUBUC  'CODE' 

.TEXT  EIDS 

.DATA  1E0DT  VOW  PUBLIC  ’DATA’ 

.DATA  BIDS 

COAST  SESXKTr  VOID  PUBLIC  ’COAST ’ 

COAST  XBDS 

.BBS  BEQUEST  VOID  PUBLIC  'BBS* 

.BBS  EADS 

DOBOUP  010UP  COAST,  .BBS,  .DATA 
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ASSUME  CS : .TEXT ,  DS:DMOUP,  SS:DGBOUP,  ES:DO»OUP 


.text  SEaHsrr 

PUBLIC  .chcolor 

.chcolor  PIOC  F  It 

bl  hold*  palotto  nfiitar  aaibtr 
;  bh  bold*  color  sain*  to  bo  u«d 


pMh 

*>p 

mow 

bp,sp 

posh 

ss 

pash 

si 

puh 

di 

mow 

di,  [bp*«] 

mow 

**,  [bp+8] 

mow 

ds,  ax 

mow 

dh.O 

mow 

cx,16 

;loop  coontor 

cloop : 


mow 

ah,  lOh 

; sot  np  for  BIOS  call 

mow 

al.O 

mow 

bl,  dh 

;r*gistar  to  sat 

mow 

bh,  ds : [di] 

; color  sain* 

int 

10b 

jontor  th*  intorrnpt 

i AC 

di 

inc 

di 

Inc 

dh 

loop 

cloop 

pop 

di 

pop 

si 

pop 

ss 

pop 

bp 

rot 

.chcolor  E>DP 
.TEXT  BIDS 
KID 


/***************•*•********************•**••••••••**••*•••*••*•*•**«/ 

/..............a............................. . **..*...**.*/ 

/•CHilLS.C 

chanls.c  —  •  colloctloB  of  root loot  which  control  tho  (croon  display 
of  spoctrograa  data  and  signal  aaplitndo  waoof orns  */ 
/..*.o*oo.ooo...,o.o*.*.o..,.o**o**o.*oo.o...o...o..(ooo.o*..,.oo..../ 

onsignod  int  scmtopO ; 
tinclodo  <stdlib.h> 

/•******o*oo*...o..*.o...**o*oo*.**o..o..».*.o..*...o.o..o..o..,*..../ 

/*  dofaolt  display  */ 


/•  chanonv.c  —  displays  on*  channol  of  froqasncios  pins  signal  a^litnd*. 
May  also  b*  inookod  with  cowand  lino  options  -f lo  or  -fib.  Vidth  of 
sasofom  onoolopo  is  dotaralnad  is  sain  and  lnploaontod  by  nooo  .c*/ 
/*..*oo..*.o.o,o.ooo*.o*«o«.**o*.oo*ooo*o.o.oo*o..*»...»o.o.oo...,..*/ 
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chaaaaa(tick) 
iat  tick; 

{ 

•stan  iat  ptkat; 

axtara  nuigtad  *absptr; 

axtara  iat  fftaalQ ,  cjcla,  gain; 

ax tarn  char  colorl  □ ; 

axtara  aasignad  iat  aaaalopa; 

iat  i.j; 

aaaalopa  ■  i  ■  j  •  0; 

/•find  tha  signal  vplitada*/ 

for(  i  ■  0  ;  i  <  ptkat  ;  i*+) 

if (aaaalopa  <  abaptrCi])  aaaalopa  •  abaptr[i] ; 

aaaalopa  •  (aaaalopa  -  0x7fff )  »  8; 

/*  aaaalopa  •  (aaaalopa  -  OxTfff )  »  (8-gain) ;  or  aaa  thia  to  iaclada  gala*/ 

for(  i  ■  0  ;  i  <  138  ;  i+a) 

colorl [127  -  i]  ■  (char)fftaal[i] ; 

if  (tick) 

{ 

for(  i  -  124  ;  i  <  128  ;  i++) 
colorl [127-i]  ■  63; 

> 

colorl [127]  ■  63;  /•  horizontal  bar  diaidiag  diiplaj  acroaa  •/ 


scratop(colorl .cjcla) ; 

pu taag(t aaaalopa .cycla) ; 
cyclaaa ; 

> 

/•••••••••••.••.•..•••.•••••••..••••••••••••••••••••••••••••••••••••••a,,/ 

/•  onachaa.c  —  displays  oaa  chaanal  of  froqaaacios  */ 

/•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••a/ 


oaachan(tick) 
iat  tick; 

{ 

axtara  nasigaad  *absptr; 
axtara  iat  ff taal [] ,  cjcla; 
axtara  char  colorl  □  ; 
iat  i,j; 
i  -  J  -  0; 

for(  i  ■  0  ;  i  <  128  ;  iaa) 

colorl [127  -  i]  ■  (char)fftaal[i] ; 

if  (tick) 

{ 

for(  1  -  124  ;  i  <  128  ;  iaa) 
colorl [127-i]  ■  63; 

} 

colorl [127]  ■  63;  /*  horixoatal  bar  diaidiag  display  serosa  »/ 
scrntop(  colorl  ,cyda) ; 
cydaaa ; 

> 
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/•e.eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee. 


'/ 


/•  twochaa.c  —  displays  two  chamois  of  freqaeacies  (optioa  2,  eoonaad 
lias  optioa  -f2) .*/ 

/oooooooooooaoooooooaooooooooooooooooooooooooooooooooooooaooooooooooo/ 

toochaa(tick) 
iat  tick; 

{ 

extern  iat  fftvalO  .cycle ; 
aztora  char  color  10  .color 20  ; 
l»t  i,j; 
j  »  0; 

for(  i  -  0  ;  i  <  128  ;  L*+  ) 

i 

colorl  [127-i]  ■  (char)fftval[je+] ; 
color2  [127-i]  ■  ( char) f f t ral  [ j +*]  ; 

> 

if (tick) 

{ 

for<  i  »  124  ;  i  <  128  ;  i**) 
colorl  [127-i]  ■  03; 

> 

colorl [127]  »  63;  /•  horizontal  bar  dividing  display  acroon  •/ 

scratep(colorl .cycle) ; 

sernbot (color 2 .cycle) ; 
cycle**; 

) 

/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 

/eeeeeeeeeeeeeeeaeeeeeeaeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 

/•CMDOFT.C 

adopt,  c  -  picks  up  argsnents  catered  on  the  caand  line  at  rsatina 
and  inplanents  the  user  choices.  It  also  does  initializing 
of  global  variables  not  initialized  ia  voice. h 

rumen  1  line  options: 

1)  -ft  “  display  4  chamois  of  saapla  freqaeacies  -  set  enabled 

2)  -f 2  “  display  2  charnels  of  saapla  freqaeacies  -  net  enabled 

3)  -fl  ■  display  1  charnel  of  saapla  frequencies 

4)  -fie  »  1  charnel  of  freqaeacies  piss  fell  width  of  envelope 

5)  -fib  “  1  chaaael  of  freqaeacies ,  envelope  a  snail  bar  gr^h  (default) 

0)  — w  ■  writes  files  of  saved  color-ceded  fft  raises  (processed  data) .  -  aot  enabled 

-k  ”  saved  files  of  raw  data  are  ia  "lay"  S600  fornat  (headers) 

-t  ».  ■  interval  tics  (<!)■■  >  eaa  sec)  for  display  an  screen 

-cc  ■  change  colors  via  data  file  Coler.dat 

-cl  ■  change  contour  levels  via  data  file  Levels.dat 

-si  *  set  sailing  freqsency.  Defaslt  is  the  sail  non.  SOklz. 

-a  •  *  amber  of  words  to  send  te  the  TRi  board 

-if”  size  of  iacrsneatal  step  far  display  of  'saved1  data 

10)  -r<space><senefileld>e  review  1 -chaaael  data 

11)  -r2<rpece><sonef ilaid>e  review  2- chaaael  data  -  net  yet  iaplenented 

•/ 

/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 

t include  <stdio.h> 
tine lade  <stdlib.h> 

•iaclsde  <tiae.h> 
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/' 


/ 


cadopt (argc ,a rga) 
char  aaarga; 

{ 

aztara  char  fidiaO ; 

aztarn  naaigaad  lot  onachaaO,  chantnrO,  taochaaO,  foorchaaO  ,  (achannal)O  ; 
axtarn  naaigaad  lot  doff inc ; /adiaplay  iacraaaat*/ 
artara  aasigaad  iat  totaalO,  totaa2(),  (*t*afat)0; 
aztara  iat  adga[] ,  color a  □  ; 

aztara  iat  kanal ,  kana2,  ftaiza.fftont ,  ptkat,  hay; 
aztara  clock. t  ctick; 
aztara  float  tic; 

FILE  *fp,  afopaaO; 

char  apt ,*p2 ,katpt [3] ,  aaaiac[4]; 

iat  a,a; 

iat  datl,opt,khz,x,ax,ay,flag,i; 

/*  Dafanlt  vain***/ 
opt  a  B ; 

chaaaal  •  chaaaav; 
doffiac  ■  138*6; 
kanal  a  04; 
kana2  •  05; 
ftaiz*  ■  256; 
fftont  *  ftaiz* ; 
ptkat  a  ftaixa/2; 
tasfat  a  totaal; 
ctick  -  CLI .TCI ; 
tic  ■  1.0; 
kay  -  0; 

vhilaC — argc  >  0) 

{ 

argra-f; 

agaia:  anitch(arga[0] [0]) 

{ 

can* 

arga  [0]  ** ; 
goto  agaia; 

/acas* 

opt  ■  5; 
braak;*/ 
caa*  >k>: 

kay  -  1; 
braak; 
caa*  ’a’: 

pi  ■  katpt; 
if  (argc  >-  2) 

«rgr++, 

argc — ; 

p2  ■  arga [0] ; 

vhila  (apia*  •  *p2»+) ; 

> 

ptkat  ■  atoi(katpt); 
if  (ptkat  <  0) 
ptkat  ■  0; 

ala*  if  (ptkat  >  ftaiz*) 
ptkat  ■  ftaiz*; 
braak; 
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cua  *i*: 

pi  »  nowinc; 
if  (argc  >«  2) 

{ 

arg**f; 

«rgc— ; 

p2  *  arg»[0] ; 

whilo  (*pl+*  *  *p2*-*) ; 

> 

doff  in  c  ■  ttoi(Miiic); 
break; 
cua  >i>: 

/*  if(argr[0][l]  “  »*») 

{ 

opt  «  10; 
taafat  »  totul ; 
fftont  »  ftaizo; 

> 

•loo  if  Cargo  [0]  [1]  —  >2>) 

{ 

opt  ■  11; 
tnfat  *  totm2; 
fftont  ■  ftoiz*  *  2; 

>  •/ 

opt  *  10; 
tusfut  «  tot ual ; 
fftont  »  ftaizo; 
pi  “  fidin; 
if  Cargo  >-  2) 

{ 

argw**; 
argc—; 
p2  ■  argr[0]  ; 

■bilo  (*pl*+  »  *p2++) ; 

> 

broak; 

caao  ’a’: 

khz  ■  atoiCargr [l] ) ; 

/•chock  for  a  dociaal  —  not  logal*/ 
if<  (atof CargrCl]))  >  khz  ) 

{ 

printf  ("\n**Saapling  froqnoncy  mat  bo  an  intogor .  \n")  ; 
printf  ("  Ploaao  try  again.  W); 

•zit(O) ; 

> 

/•trap  for  aaapling  oaluo  groator  than  50*/ 
if((  khz  >  SO  )  II  (  khz  —  0  )) 

{ 

printf ("\n**Smpling  froqnoncy  mat  bo  a  kilohortz  value  botsoon  1  and  50. \n"); 
printf (•'  Ploaao  try  again.  W); 

•zit(O) ; 

> 

flag  -  0; 
whiloCflag  —  0) 

{ 

/•find  noaber  which  diridoa  into  1000  to  giro  khz*/ 
z  ■  1000/khz; 
nx  ■  0; 
ny  ■  0; 

/•now  factor  ont  tho  x  */ 
i  -  0; 
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for(i  -  a  ;  i  <  *  ;  i-t-O 

{ 

if(!(xXi)) 

{ 

nx  ■  x/i; 

07  *  x/nx; 

> 

if (  u  >•  ]  U  t;  >■  2) 

{ 

flag  ■  1; 
knnal  *  nx; 
knaa2  •  n 7; 
break; 

> 

> 

♦♦khz; 

> 

break; 

casa  ’t>: 

tic  ■  atof(args[l]); 
ctick  ■  CLI.TCIatic; 
break; 
case  >f>: 

/•if  (argr[0)  [1]  —  >20 

{ 

opt  ■  2; 

channel  *  teochan; 
tasfnt  *  totns2; 
fftont  -  ftsize  •  2; 

>*/ 

if  (argv[0][l]  ■»  *1") 

{ 

if  <args[0]  [2]  —  >e>) 

{ 

opt  »  4; 

channel  ■  chanens; 

> 

else  if  (argr[0]t23  —  >b>> 

{ 

opt  ■  5; 

channel  *  chanenr; 

> 

else 

{ 

opt  ■  3; 

channel  ■  onechan; 

} 

fftont  ■  ftsize; 
tasfnt  »  totasl; 

} 

break; 

case  >c>; 

if(argsCO](t]  “  >e>) 

fp  ■  f open ( "color ».dat","r") ; 
if  (fp  —  TOLL) 

{ 

printf ("Unable  to  open  file  Colors.dat  An") 
exit(-l); 

} 

else  /^colors  sill  accept  np  to  10  raises*/ 

{ 

n  •  0; 
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> 


> 

> 

return (opt) ; 


whil*(fac*nf(:fp,''Xd",tdatl)  !»  EOF) 

{ 

color* [n]  m  <utl; 
n*+; 

> 

fclosa(fp) ; 

> 

} 

•Is*  if  (argw[0][l]  “  *i>) 

fp  ■  fop*a("l«Tsls.d«t,,,"r") ; 
if (fp  —  BULL) 

{ 

printf ("Unabla  to  op«n  fil«  Lawals.dat  As") ; 
•zit(-l); 

> 

•Is*  /**dg*  sill  accapt  ap  to  16  valnas*/ 

{ 

a  •  0; 

shil*(fscanf(fp,,'Xx",tdatl)  !•  EOF) 

{ 

•dg*  [n]  -  datl ; 

**+■, 

} 

fcloao(fp) ; 

> 

braak; 


/•DASHH.C 

dasbia.c  -  root  In*  to  road  ap  to  tao  cbannals  of  DU  data.  U**r  nay 

inpat  paraaMtars  addl  and  add2  to  dittniaa  aanpl*  Iraqauc; 
through  thm  rant  in*  coaaad  lin*.  On  aach  raatart  aft  or  a 
•wrj  display,  th*  starting  addrasa  is  paga  7,  off  sat  0. 

*/ 

tinclada  <grapb.b> 

# inclod*  <stdio.h> 
tinclada  <conio.h> 


tdafina  BASE 

0x310 

tdafina  IRII 

BASE +2 

/*asad  to  aatablish  nanbor  of  cbannals*/ 

tdafina  STATUS 

BASE+8 

tdafina  COITAOL 

,  BASE+9 

/•allows  IAQ5  to  ba  sat*/ 

tdafina  CT1EI 

BASE+10 

/•coontar  anabla*/ 

tdafina  CTBO 

BASE+12 

tdafina  CTB1 

BASE+13 

tdafina  CTK2 

BASE+14 

tdafina  CTBCOIT  B1SE+1S 

/•coantar  control*/ 

tdafina  DUCBAIIEL  1 

tdafina  WUH ODE 

0x45 

/•01000101  for  singla  noda  salact,  addrasa 

incranant.IO  onto  raload  of  ragistars, writs 

transfers .chsnnal  1  salact*/ 

tdafina  BASEIEO 

2 

tdafina  COUITAEG  3 

tdafina  PAOEkEG 

0x83 

/•DHl  paga  ragiatar  1*/ 

. . / 
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dash in (butt er .chan) 

int  chan;  /‘choice  of  nuaber  of  channels  (6/89  -  max  is  2)*/ 

int  *bnffar; 

{ 

int  i,j,  feabasel,  daabaseh,  <hacountl,  daaconnth; 
int  ostatptr; 

sztorn  int  knual ,knua2 ;  /of or  sampling  frequency  option*/ 

sxtarn  int  daapage; 
extern  int  daaknt ; 
statptr  ■  (int*)STiTUS; 

dmaknt  •  1 ; 

/*  set  up  the  DM  parameters  */ 

daabasel  ■  0;  /*start  at  the  beginning  of  a  page  •/ 

daabasah  *  0; 

dnapage  “  7;  /*this  BUST  be  7;  pages  *  7 ,8,9,4 ,5 ,6*/ 

daacountl  *  Orff ; 

daaconnth  *  Orff ;  /*transfar  64k  pts  */ 

ontpCCTREI,  0) ;  /edisable  data  acquisition  */ 

/•program  the  DM  chip  before  starting  DISH  board*/ 
ontpCll,  DMMODE); 
outp(12,  0) ; 

outpCBiSEHEG ,  daabasel) ;  /*atart  of  aemory  address*/ 
outp(BiSEHEG,  daabaseh) ; 

oatpCCOUITHEG,  daacountl);  /*nnabar  of  bytes  to  transfer*/ 
ontp(COUITBEG,  daaconnth); 

outpCPAGEBEG ,  daapage) ;  /'hereafter  daapaga  is  resrittan  in  handle. asa*/ 

ontp(10,  DMCMHVEL); 

/•DISH  board  parameters*/ 
ontpCCOHTROL ,  0*D7)  ; 
outpCHUZ ,  chan) ; 
ontpCCTBCOHT ,  0x74); 
outp(CTEl ,  knnal) ; 
outp(CTBl ,  0) ; 

ontpCCTBCOHT ,  0xb4)  ; 
ontp(CTB2 ,  knna2) ; 
ontp(CTB2,  0); 
ontp(CTREI,  01); 
handled ; 


return (0) ; 

> 

/*****••*•••• . 

dashoffO  { 

ontp(CTHEI.OO) ;  /*tnrn  off  the  connter  enable  */ 

outp(0x0e,  0000);  /*  reset  the  DM  chip  */ 

ontpCOxOd,  0000); 
ontp(0x0f,  Oxff); 

> 

/*•**•••••••**••*••••*••****••*•*••••*••••••**••*••••••*•••*••****•/ 


/•get  the  aost  recent  address  at  shich  data  has  bean  received,  and 
return  this  offset  to  use  in  address  calculations.  •/ 

unsigned  int  dashget () 

< 

unsigned  i,j; 

j  «  (Cinp(BlSEREG) )  |  (inp(BiSEREG)  «  8)); 
return ( j) ; 

> 
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/•  enable  interrupt  S  •/ 

/•  get  1  or  2  channels*/ 

/•  ctr  1,  node  0,  write  ament  */ 
/•  for  s sapling  frequency  */ 

/•  ctr  1  divides  by  4  */ 

/•  for  stapling  frequency  •/ 

/•  start  data  acquisition  •/ 

/*  enable  interrupt  handler*/ 


/eDELHAO.C 

delaag.c  —  deletes  clipping  light;  activated  by  key  I  .DEL 

•/ 


•include  <stdio.h> 

•include  <gr«ph.h> 

delaagO 

{ 

int  i,  txtcolor; 
txtprepO; 

txtcolor  *  _gett ext color O ; 
.settextcolor C_getbkcolor O  ); 
.iettextiindoi(18,61,]8,62) ; 

for(  i*l  ;  i  <«  10  ;  i++  ) 

{ 

_settextposition(i ,1) ; 
.outtextO*  "); 

> 

.set text color (  txtcolor  ); 

> 


/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 
; EIDIIT5 . ASH 

; endintS . esa  —  ends  the  interrupt  condition  invoked  by  handle .sen 


EITRI  keep.es: near 
EZTU  keep. ip: near 


.TEXT 

.TEXT 

SEOHEIT 

EIDS 

BYTE  PUBLIC  ’CODE’ 

.DATA 

.DATA 

SEOHEIT  VOID 
EIDS 

PUBLIC  ’DATA’ 

COIST 

COIST 

SEOHEIT 

EIDS 

WORD 

PUBLIC  ’COIST’ 

_BSS 

_BSS 

SEOHEIT 

BIDS 

WORD 

PUBLIC  >BSS’ 

DOROUP 

OIOUP 

COIST, 

_BSS,  .DATA 

ASSUME  CS :  .TEXT ,  DS:  DO  ROUP,  SS:DOROUP,  ES:D0I0UP 
.TEXT  SEOHEIT 
PUBLIC  .endintS 


endint6  PROC 

FAR 

push 

bp 

• 

UOT 

bp.sp 

push 

ss 

push 

si 

push 

di 

• 

cli 

;disables  interrupts (int  flag  set  to  1) 
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; prepare  to  root or*  offset 


posh 

ds 

■or 

dx,  WORD  PTR  keep. ip 

;prep are  to  restore  offset 

mow 

ax,  WORD  PTR  keep.es 

mow 

ds,  ax 

;prapare  to  restore  secant 

mow 

ah,  25h 

; function  to  set  an  interrupt  vector 

mow 

al,  Odh 

;nuabar  of  the  vector 

int 

21h 

;now  the  vector  is  reset 

pop 

ds 

;restore  ds 

»ti 

; clear  flag  to  enable  interrupts 

pop 

di 

pop 

si 

pop 

SS 

MOT 

sp,  bp 

pop 

rot 

bp 

_ondint& 

.TEXT  EIDS 

EID 

endp 

; ERASE. ASH 

; oraso . asa 

; Write  directly  to  the  EOi  video  RAH.  This  root  in*  ass  iotas  the  video  driver 
;is  IBH  coapatible  and  supports  EGA  aode  10H  (  640x350,  16  colors) 

; erases  contents  of  bottoa  window  (screen-width  wavefoxa) 
eraaeCtext  coluan  nuabar) 


.TEXT 

.TEXT 

SEOHEIT 

EIDS 

BYTE  PUBLIC  >CODE> 

.DATA 

.DATA 

SEOHEIT  WORD  PUBLIC 

EIDS 

’DATA' 

COIST 

COAST 

SEOHEIT 

EIDS 

WORD  PUBLIC 

’COIST’ 

_BSS 

_BSS 

SEOHEIT 

EIDS 

WORD  PUBLIC 

’BSS’ 

DGROUP 

GROUP 

COIST,  _BSS 

,  .DATA 

ASSURE  CS : .TEXT ,  DS: DO ROUP,  SS: DO ROUP,  ES: DO ROUP 

.TEXT  SEOHERT 
PUBLIC  .erase 

.erase  PROC  FAR 


push 

bp 

BOV 

bp.wp 

push 

SS 

push 

si 

push 

di 

push 

ds 

BOV 

dx,  3c eh 

BOV 

al,  6 

out 

dx,  al 

inc 

dx 

aov 

al,  2 

;set  video  write  aode  2 


; video  aode  2 
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out 

dz,  al 

SOT 

az,  0a019h 

; point  to  top  left  screen  corner 

HOT 

es,  az 

;s«t  up  bit 

■ask  register 

■OT 

dz,  3ceh 

;point  to  address  register 

■or 

al.  8 

;bit  aask  register 

out 

dz,  al 

;address  the  register 

iuc 

dz 

;poist  to  data  register 

■OT 

az,  80h 

;aask  out  all  bits  ezeept  bit  7 

out 

dz,  al 

;send  data  to  aask  register 

;g«t  tho  buz 

'  height  to  be  plotted 

■OT 

az,  128 

■OT 

dz,  80 

■nl 

dz 

odd 

az,  10240 

add 

az,  [bp+6] 

■OT 

dz,  az 

pnt  the  color  into  the  aask  register 

■OT 

dz,  0 

'.color  is  black 

i  gat  the  colon  nuaber  where  cursor  is  to  bo  writtwn 


■or  cz ,  [bp+6] 

■OT  bz,  cz 
add  bz,  10240 

;load  with  screen  colnaa  ntnber  to  srite  to 
;top  of  bottoa  window 

;dras  a 

pizel 

coll: 

■ot  al,  ea:[bz] 

■ot  es : [bz] ,  al 

■ot  byte  ptr  es : [bz] ,  00 

add  bz,  80 

op  bz,  dz 

jl  coll 

;fill  the  latch  registers 
;dras  the  pizel 

; point  to  pizel  below 

colb: 

■ot  al,  dl 

■ot  byte  ptr  es : [bz] ,  00 
add  bz,  80 
ap  bz,  20860 
jl  colb 

;pizel  color 

; point  to  pizel  below 
; —  colnaa  bottoa 

pop  ds 
pop  di 
pop  si 
pop  ss 
pop  bp 
ret 

.erase 

EIDP 

.TEXT 

KIDS 

BID 

/•ORXQI.C 
getaea.c  — 

Sato  np  for  tha  display  of  data  stored  In  noaory  by  tbs 

DIU  in  s  boffar  np  to  384k  largo.  3 tart -and -and  addressee  (page-offset) 

and  const  of  pages  of  inpot  data  are  calculated;  then  a  display  loop 
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increment*  tha  input  address**  sad  calls  shosdat  to  display  the  procassad 
data  at  a  resolution  calculated  to  exactly  fill  tk*  acreeu  eindoe. 

IB:  Tk*  DJU  controller  kas  been  stopped  in  tk*  calling  program.  After 
eack  examination  of  aeaory,  it  is  restarted  by  daskiaO  sitk  page  set 
to  7,  offset  set  to  0. 

Tin*  ticks  are  displayed  at  tk*  top  of  tk*  sindos  for  every  aecond, 
sitk  every  tenth  second  in  donbl*  length;  if  sindos  sidtk  contains 
less  than  4  seconds  of  data,  every  tenth  of  a  aecond  is  narked  sith 
a  half-length  tick.  IB:  Tk*  tia*  ticks  in  the  zooa  displays  reflect 
tk*  tia*  span  required  for  display  of  tk*  selected  data  in  real  tia*. 

Operations  available: 

zooau  -  sequential 

redisplay  of  prior  zooa  screens  (up  to  10  levels) 

save  delimited  data  to  file 

zooa;  hit  ’a  *  key  to  save  fall  screen  of  data 

aove  cursora;  save  data;  kit  enter  to  vies  full  screen  of  saved  data 

nova  cursors;  save  data;  aove  cursors;  hit  enter  to  see  subset  of  saved  data 

aove  cursors;  save  data;  aove  cursors;  save  data 


note:  after  a  ’save’,  the  cursors  Bay  be  moved  either  tosard  tk* 
screen  center  or  tosard  the  side  margins 


•include  <stdio.h> 
•include  <graph.h> 
•include  <stdlib.h> 


•include  "keydefs.k" 

•include  "fcntl.h" 

•include  "hsaos.def” 

•define  O.IAW  O.BIIAKT 

•define  enable.pl  sstcr(  (rsterOASTC.IUI)  |  STC.DPAGEl  ) 

•define  disable.eda  sstcrC  rater  OASTC.HEH.IUSI  ) 

•define  enable.pO  ester (  (rstcrOASTC.BUI)  I  STC.DPAGEO  ) 

•define  HIITE  319 
•define  BLACI  356 
•define  HIDE  828 

unsigned  int  daahgetO ; 
unsigned  int  shosdatO; 
unsigned  int  (*aove)0; 
void  putcursO; 
int  getkeyO ; 

getaea(choice , jump) 

int  choice;  /edisplay  option  set  in  adopt  (•  of  channels)  -  Seeded 
to  funnel  into  shosdat.ee/ 
int  juap;  /•initial  offaet  increment  factor  •/ 

{ 

extern  char  curcolor; 

extern  unsigned  int  doff set,  doffinc,  endoff; 
extern  long  unsigned  int  skosaddr; 

extern  int  daapage,  knual ,  knua2,  lcol,  rcol,  cycle,  eabsptr; 
extern  int  inkey;  /*valu*  is  established  by  calling  function*/ 
extern  int  daaknt;  /•initialized  to  1  in  dashin*/ 
extern  int  gain; 
extern  float  tic; 
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/•local  ftritUu*/ 

static  niipad  1st  strtpage,  lstpage,  first off,  la* toff,  d  da  tap; 
static  iat  koaater,  pnshkat; 
static  street  pash pop 
{ 

imslgssd  iat  pgo; 
easigaed  iat  incr ; 
aasi«as4  iat  of sat; 
aasitaad  iat  offlast; 
iat  pgkat; 

Hovels  [10] , •which; 

ioibli  sfroq; 

easigned  iat  stap,  pagtaoa,  pagelaat,  *trtbyte ,  endbyte; 
assigned  iat  oldoff,  tapl ,  tap2 ,  tap3,  offsets ; 
iat  txt  color ,  locatioa,  aovkat,  first  col,  lasted ; 
iat  i,  j,  aark,  kat ,  loopao,  kt,  oak,  again,  reply; 
iat  toaloop,  taatk,  doci,  ktoa,  place ,  aarktoa; 

/•initialising*/ 
doci  *  taatk  *  O; 
place  ■  toaloop  •  1; 
reply  *  0; 
firatcol  *  0; 
lastcol  *  60; 
loopao  •  0; 
ktoa  •  kt  »  1; 

again  *  6;  /•default  far  •  pages  of  raw  data*/ 

oldoff  •  0; 

sek  *  1;  /*tino  ticks  —  oitksr  1  or  0  •/ 

stop  •  Consigned)  j«p; 

sfroq  *  ( 1000000.  /  ((double  Uknnnl  •  kam2))>;  /•hers*/ 

aark  -  (iat) C((sfroq*2.0)/(float)stop)  •  tie);  /*ti*oticks  calcalstioa*/ 

/•••••••••••••••••••*•••••••••••••••••••••*••••*••••*••••••••••*/ 

/•••••dofiao  tho  aabor  of  pages  to  bo  road  and  displayed,  sad 

the  page  and  offset  ohero  data  rotrioval  is  to  begin******/ 

/• 

Variables  to  be  defined: 

again  -  conat  of  pages  to  be  rood  (IB:  pages  are  4, S, 6, 7, 6, 9 

with  beginning  page  containing  data  for  tho  last  pago, 
so  that  ’again’  far  6  pages  ■  6  for  7  iterations,  0-8) 
pagoaoe  -  starting  page 
pagelaat-  eadiag  page 
doff set  -  starting  offset 
eadeff  -  last  offset 


ssitch  (inkey)  { 
case  IJ: 

/•This  case  is  UMltl  called  first,  and  sets  sp  the  basis  for 
variable  valsas  in  tho  rest  of  the  fsactioa*/ 

/•get  carreat  page  k  offset  valsas*/ 
pagelaat  ■  (anslgaod)dnsptge; 
offset  a  »  dashgetO; 
eadeff  ■  effsota; 

if  (teakat  >■  7) 

/•normal  sitaatioa  —  a  fall  6  pages  of  braad  nee  data*/ 

{ 

again  *  6;  /*loop  control,  0  -  6  •/ 
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paganoa  *  pagalaat; 
doff act  •  offaata; 

•tap  ■  atap  t  Oxfffe;  /»aaanlp  diviaibla  bp  4*/ 

> 

alaa 

/•lass  than  6  pagas  of  mi  data.  Eltbar 

i)  tha  osar  has  hit  tha  ’s'  hap  so  soon  aftar  tha  praaioos 
ratriaval  that  tha  CHI  has  not  baan  abla  to  rafill  all 
six  pagas,  or 

B)  this  is  tha  start  of  tha  sassion,  and  6  pp  haaa  not  pat 
baan  fillad.  •/ 

{ 

again  »  daaknt-1; 
paganoa  »  7; 
doff sat  •  0; 

/•sut  radafina  ’stap*  so  that  displap  fills  tha  seraan;  stap  anst  ba 
lass  than  (138*6)*/ 

stap  *  (138  •  again)  *  ((offsata)/480); 

stap  *  stap  t  Oxfffe;  /*a*anlp  diaisibla  bp  4*/ 

doff inc  *  stap; 

> 

/•■a*a  thasa  parsnatars  for  snbsaqnant  diaplaps  of  this  aaaorp*/ 

pnahknt  *  0;  /*initialisas  at  aach  axit  froa  running  displap*/ 

which  ■  klavals [pashknt] ; 

shich->pga  *  paganoa ; 

which->incr  *  stap; 

which->ofsat  ■  doff sat; 

shich->offlaat  *  andoff ; 

ahich->pgknt  m  again; 

braak; 

casa  I.ESC: 

/•  displap  data  froa  tha  praaioos  seraan  •/ 
if(  pnahknt  >  0  ) 

{ 

vhich  *  Alaaals[pnshknt-1] ; 

— pashknt ; 

if (  pnahknt  “  0  )  aassagas(4) ; 

> 

•1st 

{ 

vhich  •  41 avals [pnahknt] ; 

nassagas(4) ; 

> 

paganoa  »  vhich->pga; 
stap  *  shich->incr; 
doff sat  ■  shich->of sat ; 
andoff  *  shich->off last ; 
again  ■  vhich->pgknt ; 
braak; 
daf anlt : 

/•  this  takas  cars  of  inkaps  (sat  ins Ida  leursor),  which  nap  ba 
<antar>  "zoom"  or  <•>  "saaa  to  fila"  •/ 

/•Bara  vo  adjust  addraas  and  paga  konnt  to  natch  cursor  novas. 

For  itaratiaa  xooas,  paga  and  off sat  ara  calculatad  froa  tha 
start  of  tha  praaioas  sooa,  EOT  froa  start  of  bnffar*/ 

/•dafaalta*/ 

■trtbpta  *  firstoff; 
andbpta  *  lastoff; 
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paganos  ■  strtpage; 
p«(«lut  ■  latpage; 
again  *  kountar; 

■ovknt  ■  lcol ; /•  IB:  'novkat  ’  ia  tha  nnaber  of  cursor  Moves  •/ 
again  »  novtorit (tstrtbyta, again, oldstep,novknt , kpaganov) ; 

aovknt  ■  60  -  rcol; 

again  »  novtolft(fcendbyta, again, oldstap,novknt,fcpagalast) ; 

doff sat  “  strtbyte; 
andoff  ■  andbyte; 

/•find  tka  incraaantal  step  to  ba  need ,  and  (aaybe)  at ora 
all  tba  scraan  display  paraaatsrs  vkick  hava  baan  nasly 
calcnlatad  in  “levels"  •/ 
stap  •  calc  stap  (again)  ; 

stap  “  stap  k  Oxfffc;  /aavanly  divisible  by  4*/ 

/•if  step  incraaant  is  <  30,  thara  era  rounding  ap  or  dovn 
problaas  so  that  tha  raanlting  scraan  display  is  not  valid. 
Bosevar,  a  "aava"  of  data  is  still  possible  because  tha 
doff sat  and  andoff  sill  ba  correct .  •/ 

if (  inkey  !»  E_S  ) 

{ 

if (  stap  <  30) 

{ 

reply  ■  Messages (3); 
if (  reply  “  1  ) 
inkay  •  E_S; 

else 

{ 

Messages (9) ; 

/•pick  np  valnas  from  pravions  display*/ 

doff sat  •  firs toff; 

andoff  •  lastoff; 

pagaaov  ■  strtpaga; 

again  •  kounter; 

stap  •  oldstep; 

> 

> 

else 

{ 

/•stuff  soon  par  ana  tars  into  structure  array  so 
they  sill  ba  available  for  tha  redisplay  option*/ 
if(  ♦♦pnahknt  >  9  )  pnahknt  *  1; 
shich  *  klavals [pushknt] ; 
vhich->pge  *  paganov ; 

shich->incr  *  step; 

shich->ofsat  “  doffset ; 

shich->offlaat  *  andoff; 

shich->pgknt  *  again ; 

) 

> 

>  /*end  of  ssitch*/ 

doffset  ■  doff sat  I  Oxfffc;  /aavanly  divisible  by  4*/ 


/•••••••••••••••End  of  defining  addresses  and  page  counts**************/ 

. . •••••••••••• . . 


/•Saving  to  fila*/ 
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if (  ink*;  “»  K.S  ) 

{ 

dtUajO  ;  /*dalata  clipping  light*/ 
aauacr (paganoa .doff sat .andoff .again, (tap) ; 

chi  a  lent  ■  1; 

ratura(O) ; 

> 

/ado  I0T  aaaa  any  of  tha  par ana  tar a  baloa*/ 


. . . 

/asava  aoaa  atatic  aariabla  aalnaa  for  tha  naxt  call  to  thia 
function.  Dona  hara  bacanaa  paganoa  and  doffaat  ara 
diffarant  at  bottoa  of  Diaplay  Loop  from  at  top  / 

lira toff  a  doffaat; 
laatoff  •  andoff; 
atrtpaga  ■  paganoa; 
latpaga  »  pagalaat ; 
konst or  *  again ; 
oldatap  ■  atop; 


/' 


'Start  of  Diaplay  Loop' 


'/ 


/•Loop  froa  atarting  placo  in  firat  paga  until: 
tha  a  ana  placa  ia  found,  for  a  full  6  pp 
or 

laat  offaat  (andoff)  on  laat  paga  ia  hit  (  <  6  pp  ).•/ 

/•••••••••aaaaaaaaraaa  tha  currant  curuora* •••*••••••**••/ 

if (  inhay  !-  K.H  ) 

{ 

location  a  lcol; 
put cura( location) ; 
location  *  rcol; 
put cura (location) ; 

> 

/••aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/ 


/•aoaa  initializing.  .  .  •/ 
ahouaddr  a  ((long)paganoa)«28; 
if(  again  <  0  )  again  ■  0; 
aak  ■  0; 
oldoff  -  0; 
cycla  •  0; 

mark  ■  (int)(((afraq*2.0)/(float)atap)  •  tic); 

if(  nark  >»  120  )  tanth  •  1;  /*ahou  tanth-of-aacond  ticka*/ 

/•hara  ua  go!  •/ 

for(  i*0  ;  Kaagain  ;  !+♦) 

{ 

/•do  thia  onca  to  ba  aura  doffaat  aat  >  0  •/ 

/•Making  a  tin*  tick*/ 
if (♦♦loopuo  aa  (nark*kt)  ) 

{ 

placa  ■  aark  *  kt; 

aak  a  i *  /*aaka  a  tin*  tick  on  tha  naxt  loop*/ 

♦♦kt; 

ktan  •  i ; 

tanloop  ■  loopno; 

> 
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ahoadat (choice, aak, daci) ; 

••k  -  0; 

oldoff  ■  doff sat; 
doff sot  ♦»  stop; 

■kilo  (doffaot  >  oldoff) 

{ 

if (  kbhit ()  ) 

{ 

inkey  »  getkeyO ; 

•■itch  (inkoj) 

{ 

caaa  K.Z: 

goto  dona;  /*axit  fro*  aoica*/ 

caaa  K.H: 

holpTca (2) ;  / *halp  window*/ 

break ; 
caaa  (.DEL : 

dalaagO;  /adalata  clipping  light*/ 

break; 
caaa  (.UP: 

♦♦gain; 

break; 

caaa  I. DO VI: 

— gain ; 
break; 
default : 

■eaaagaa(l);  /‘legal  key*  in  aaaaaga  canter*/ 
break; 

> 

> 

/•Raking  a  tiaa  tick*/ 
if (♦♦loopno  ■»  (nark'kt)  ) 

( 

placa  a  nark  •  kt; 

aak  »  1;  /*uka  a  ona-aacond  tiaa  tick*/ 

♦♦kt; 
ktan  >  1 ; 
tanloop  a  loopno; 

> 

elan 

{ 

if (  tenth  ) 

{ 

daci  ■  0; 

aarkten  »  aark/10; 
if ((  aarkllO  )  >  5  )  ♦Aarkten; 
if(  (♦♦tanloop)  ■■  ((aarkten*kten)  ♦  (placa)  )  ) 
{ 

if (  ktan  <■  9  )  daci  *  1 ; 

♦♦ktan; 

} 

> 

> 

ahowdat (choice , aak , daci) ; 

/•Sat  np  for  tha  next  loop  on  thia  page*/ 
daci  •  0; 

aak  ■  0; 

oldoff  a  doffaot; 
doffaat  ♦*  atop; 

if ((i  aa  again)  Ut  (doffaat  >■  andoff)) 

{ 
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goto  dona; 

> 

> 

/•Sot  np  for  processing  the  next  page*/ 
oldoff  »  0; 

++pagonos ; 

if (  pagono*  >  9)  pagaaov  ■  4; 
shosaddr  *  ((long)pagonoe)«26; 

> 


dono: 

if(  cyclo  >  0)  BooofullO;  /‘show  tho  last  scrap  of  data*/ 

cloanasgO  ;  /••raao  any  Messages*/ 

daakat  ■  1;  /‘got  ready  for  tho  next  call  to  'handle’  OKI  acquisition*/ 

/••••••••••••••drao  tho  first  and  last  enrooro************************/ 

cur color  *  WHITE ; 
put cars (f irstcol) ; 
put  curs  (lasted) ; 


/•*•••*••••*••*••••••••••••*••••**•*••••••••*•••«••••••••••**•••*•••/ 

/***••*•**** ************************************** ******* ***********/ 


; HilDLE . ASH 

; handles  tho  DM  oad-of-pago  interrupt 

extra  .daapage  :V0U> 
extra  .dmsJtnt  :  VOXD 

.TEXT  SEQHEIT  BYTE  PUBLIC  'CODE' 


.TEXT 

EBDS 

.DiTt  SEC BEIT  VOID  PUBLIC  >DXTX' 

koop.es  do  0  ; holds  segment  for  roplacod  interrupt 

koop.ip  do  0  ; holds  offset  for  roplacod  interrupt 

.DXTX 

EBDS 

COIST 

CDIST 

SEOHEIT 

EBDS 

WORD  PUBLIC  'COBST* 

.BSS 

_BSS 

SEQHEIT 

EBDS 

HOED  PUBLIC  'BSS* 

DOXOUP 

0X0  UP 

COAST,  .BSS,  .DXTi 

iSSUHE  CS :  .TEXT ,  DS:DdUUP,  SS:  DC  HQ  UP,  ES:D0B0UP 


.TEXT  SEQMEBT 

PUBLIC  ksop.es 
PUBLIC  keep.ip 
PUBLIC  .handle 

.handle  PXDC  FIX 


push 

bp 

■00 

bp.sp 

push 

as 

push 

si 

push 

di 

;Set  up  to  receixe  interrupt 
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■ov 

ah,  35h 

;function  to  gat  int  address 

■ov 

al,  Odh 

; number  of  th*  sector 

iat 

aih 

;now  segment  is  in  ES,  offset  in  BX 

■ov 

k**p_ip,  bx 

;stor*  offset 

■ov 

keep.es,  *s 

; store  segment 

pash 

ds 

;saw*  ds 

di 

;diaabl*  interrupts 

in 

al,21h 

; enable  interrupt 

and 

al.Odfh 

out 

31h,al 

■ov 

dx,  offset  master 

; offset  of  interrupt  routine  in  dx 

■ov 

ax,  sag  master 

; segment  of  th*  interrupt  routine 

■ov 

ds,  ax 

;plac*  in  ds 

mor 

ah,  2Sh 

;f unction  to  set  up  a  sector 

mor 

al,  Odh 

;th*  sector  number  (IEQ5) 

int 

21h 

; change  th*  interrupt 

■ti 

;r**nabl*  interrupts 

pop 

ds 

;r*stor*  ds 

■ov 

dx,318h 

;srit*  to  DISH  status  register 

xor 

&l,al 

out 

dx,al 

pop 

di 

pop 

si 

pop 

ss 

■ov 

sp,bp 

pop 

bp 

rot 

;go  back  to  C  calling  routine 
;aith  interrupt  still  enabled 

.handle  EIDP 


;Tha  interrupt  rant  in* .  . . i .*  .  ,  what  to  do  whan  an  interrupt  i*  found 
; dnalmt  addad  to  fc««p  track  of  how  many  memory  pp  haw*  b*«n  writtan  to 
;ainc«  th*  laat  access  by  getnem. c 

Banter  proc  far 


push 

bp 

push 

ax 

push 

cx 

push 

dx 

push 

bx 

push 

oa 

push 

•a 

push 

da 

push 

al 

push 

di 

mow 

bp.aj 

mow 

dx,  Osh 

mow 

si  ,1 

out 

dx,  si 

;cl*ara  chanl  1  naak  r*giat*r 
;bit  in  8237i  chip 


; w*  Boat  go  through  all  th*s«  tricks  to  captur*  th*  ralu*  of  dnapage 
;b*caus*  it  is  a  global  wariabl*  in  memory,  and  because  h*r*  ••  ar* 

;a  large  (far)  model 

mow  as,  sag  .dmapage  , ;g*t  global  dmapage  from  aaaorj 
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nov 

os, ax 

;pnt  segaoat  into  oa 

BOY 

bx,  offset  .daapago 

;got  address 

BOY 

ax, os: [bx] 

;got  tbo  value  of  damage 

:radefine  .daapage  to  bo  roodj  for  writ# 


xor 

ah,  eh 

Inc 

al 

a^> 

■1.® 

Jl* 

next 

BOV 

■1,4 

naxt : 

BOV 

os: [bx] ,ax 

; writ*  daapago 

to  DASH  pagorogistar  port 

xor 

ah, ah 

BOY 

dx,  063b 

;tbis  goto  PAGE1EG  into  dx 

out 

dx,ax 

;  write  daapsge  to  pagarog 

BOY 

dx, 0318b 

;vrito  to  DASH  statu  rogistor 

xor 

al.al 

;so  that  data  can  bo  acquired 

oat 

dx,al 

iincroaant  value  of  global  daaknt 

BOY 

ax,  sag  .dasknt 

;get  global  daaknt  froa  aoaory 

BOY 

os, ax 

;put  sogaont  into  os 

BOY 

bx,  offset  .daaknt 

;got  address 

BOY 

ax, os: [bx] 

;got  tho  value  of  daaknt 

iac 

al 

; incr oaont 

BOY 

os : [bx] ,ax 

and  update  the  variable 

;end  of  bardvaro  interrupt 

BOV 

al,  02 Oh 

;roquirod  for  coapletion 

out 

20h,  al 

;of  bardvaro  interrupts 

BOV 

•p.bp 

pop 

di 

pop 

si 

pop 

ds 

pop 

SB 

pop 

SB 

pop 

bx 

pop 

dx 

pop 

cx 

pop 

ax 

pop 

bp 

lrot 

■ootor  ondp 

.TEXT  KIDS 
ETO 


/ ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo/ 
/••ooooooooooooooooooooooo,oo.o.o.ooo.oooooo..ooo.o....o.o.oo..oooo./ 
/olELPVCK.C 

halpvce.c  —  "help"  bobu  to  bo  displayed  ohon  tho  >b’  key  is  bit. 

•/ 


•include  <atdio.h> 
•inclado  <graph.h> 
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balpaca(pick) 
int  pick; 

{ 

int  tit color,  abbricol; 

.aatcolor (63) ; 

.aatdiprgn(500, 138,639, 260); 
.ractangla (.OBORDEl , 500 , 138 ,639 , 260 ) ; 

txtprapO ; 

tztcolor  ■  .gattaxtcolorO ; 
abbracol  *  S; 

.aattaxtcolor(txtcolor) ; 
.aattaxtaindoadl, 64, 20,80) ; 

if  (  pick"!  ) 

{ 

.aattaxtpoaitiond  ,1) ; 

_outtaxt("  HELP  XEIU"); 

.aattaxtpoaition(3,l) ; 
.aattaxtcolor(abbrTcol) ; 
.onttaxtCf”) ; 
.aattaxtcolor(txtcolor) ; 

_onttnxt("  fraaza") ; 

.aattaxtpoaitiond ,  1 ) ; 
.aattaxtcolor (abbrrcol) ; 
.onttaxtCV) ; 

.aattaxtcolor (txtcolor) ; 

.onttaxtC  aaa  mory") ; 

_aattaxtpoaition(5,l) ; 
.aattaxtcolor (abbracol) ; 

.outtaxt ("x")  ; 

.aattaxtcolor (txtcolor) ; 

_onttaxt ("  axit"); 

_aattaxtpoaition(6,l) ; 
.aattaxtcolor (abbracol) ; 
.oottaxtCdal”) ; 

.aattaxtcolor (txtcolor) ; 

.onttaxtC  araaa  bar"); 

> 

alaa  if(  pick  »■  2  ) 

{ 

.aattaxtpoaltionU  ,1) ; 
.aattaxtcolor(nbbracol) ; 
.onttaxtCa") ; 

.aattaxtcolor (txtcolor) ; 

.onttaxtC  aa»a  to  fila")  ; 

.aattaxtpoaition(2,l) ; 
.aattaxtcolor (abbrvcol) ; 
.onttaxtCx") ; 

.aattaxtcolor (txtcolor) ; 

.outtaxt("  axit”); 

.aattaxtpoaition(3,l) ; 
.aattaxtcolor(abbrTcol) ; 
.outtaxtC'Fl  ,F2") ; 

.aattaxtcolor (txtcolor) ; 

.onttaxtC  laft  cnra") ; 
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_aattartpoaition(4,l) ; 
.aattaxtcolor (abbrocol) ; 
_onttaxt("F3,F4") ; 
.aattaxtcolor(trtcolor) ; 
.onttaztC'  right  cora") ; 

_aattaxtpoaition(S,l) ; 
.aattoxtcolor (»bbrTcol) ; 
.outtaxtC'aac") ; 
.aattoxtcolor (trt color) ; 
.onttaztC’  prior  • croon") ; 

_sottoztpooition(6 ,1) ; 
.aattoxtcolor (abbrrcol) ; 
.outtaxtC’dal") ; 
.aattoxtcolor (txtcolor) ; 

_ oat tort ("  araaa  bar"); 

_aottaztpoaition(7 ,1) ; 
.aattaztcolor(abbrvcol) ; 
.onttoxt  Cantor") ; 
.aottaxtcolor (tricolor) ; 
.onttaztC*  nazt  zoo*") ; 

.aattaxtpoaition(8 ,1) ; 
.aattoxtcolor (abbrocol) ; 
.outtaxtC'apaca") ; 
.aattoxtcolor (txtcolor) ; 
.onttaztC*  raaltiaa") ; 

> 


/oooooooooooooooooooooooaaaoaooooaooooooaoooooooaoaoooooaaoaoooaooaaooooo/ 

/oclaarblp.c 

Totally  araaa  top  laval  halp  nano  araa,  bordar  t  linaa  11-20, 
colnama  64-8). 

*/ 

tinclnda  < graph  .  h> 

claarhlpO 

{ 

int  tzt color,  i; 

_a at color (0) ; 

.roctanglo (.OBORDER ,500,138,639,260); 
tztprapO ; 

tztcolor  >  .gettaztcolorO ; 

.aottaxtcolorC.gotbkcolorO  ); 

_aattoxt*indoa(ll,64,20,80) ; 

for<  i  ■  1;  i  <  9;  i*+  ) 

{ 

_aattaztpoaition(i ,1) ; 

.onttaztC'zzzzzzzzzxzzzzzz") ; 

> 

.aattaztcolor(tztcolor) ; 

} 


/•KATHD1C 
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kayhdr.c  —  Writes  headers  to  output  file*  of  raw  spectrogram  data  so 
that  said  filos  can  be  read  by  tbe  Kay  Sona-Graph 
Workstation,  format  S500. 


•include  <stdio.h> 
•include  <stdlib.h> 


kayhdrO 

{ 

extern  FILE  ‘stream; 
extern  int  knunl ,  knua2; 

int  tupO,  tmpl ,  tamp,  i,  j; 
unsigned  int  hertz; 

long  int  place;  /efseek  requires  this  to  be  long*/ 

float  khertz,  taphertz; 
tapO  »  0;  tapl  *  1; 

khertz  *  (1 000. /( (double )(knual*knua2))) ; 
tnphertz  *  (unsigned  int)khertz  •  1000.; 
hertz  *  taphertz  /  10 . ; 

/♦write  S12  zeros  to  push  EOF  forward  before  starting  a  ’seek’  */ 
for(  i  *  0  ;  i  <  512  ;  i++) 

{ 

place  *  (long)i; 

fseek(  streaa, place , SEEI.SET) ; 

puts (tapO, stream) ; 

> 

rewind(streaai)  ; 
place  *  24; 

fs*ek(  stream, place, SEEK.SET); 
fputs(,,12", stream);  /*bytes  25-26*/ 

place  *  38; 

fseek(  stream, place, SEEK.SET); 

puts (tmpO, stream) ;  /‘bytes  39-40*/ 

place  *  64; 

fseek(  stream, place .SEEK.SET); 
fputs("S500SD“, stream);  /*bytes  65-70*/ 

place  *  70; 

fseek(  stream, place, SEEK.SET) ; 

puts(  (long)tapl .stream)  ;  /‘bytes  71-74*/ 

place  ■  120; 

fseek(  streaa, place .SEEK.SET) ; 

puts (tapl, streaa) ;  /‘bytes  121-122*/ 

place  ■  122; 

fseek(  stream, place, SEEK.SET); 

puts (hertz, stream)  ;  /‘bytes  123-124*/ 

place  *  124; 

faeek(  stream, place .SEEK.SET) ; 
leap  a  -32000; 

puts(teap, stream) ;  /‘bytes  125-126*/ 

place  *  126; 

fseek(  atream, place, SEEK. SET) ; 
temp  -  32149; 
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putw(tenp, strew) ;  /*bytes  137-128*/ 

/•Bytes  129  -  ISO  has*  air* ad J  b**n  filled  with  z*ro*a ;  th*s*  art  th* 
fields  for  “spectral"  data;  se  are  saving  "sagaple"  data  instead*/ 

/•Space  forward  to  byte  S12,  where  data  will  begin*/ 

place  *  S12; 

faeek(  strew, place, SEEK.SET); 
return(O) ; 

> 


/•*••*••*•*•••••••••••*••••••••*•*••**••••*••*•••••**•••••*••*•*••••/ 

/•IEYS.C 

keya.c  —  Functions  to  read  keystrokes,  and  to  deteraine  actions  to  be 


taken,  depending  on  which  keys  are  hit. 

•/ 

/•••*********•••••***•••*•••**•*•*•••**•••*••*•••••**•••••••••••«•*•**•*/ 

•include  “keydefs.h" 

/****••**••***•****••**«••**••***•••**•••••••**••*••**************•****•/ 

/•Oetkey  —  returns  code  for  single  cwbo  keystrokes 


unique  code  for  each  keystroke  or  coabination 

*/ 

•include  <dos.h> 

•define  SETH  Oz7 
•define  LOBYTE  OxOOFF 

/••**•***•••*•*•••••**•*•••*••***•*«•••••*•••••••*•*••••••*••*•*••••••••/ 

int  getkeyO 

{ 

int  ch; 

/•normal  key  codes*/ 

if ((ch  *  bdos (KEYII ,  0,  0)  •  LOBYTE)  !-  »\0') 
return(ch) ; 

/•convert  scan  codes  to  unique  internal  codes*/ 
return ((bdos (KEYII,  0,  0)  k  LOBYTE)  I  ZF) ; 


> 

/••*«•***••*•••*•«••••••*•••*•*••*•*•*••••••*•••••••*•••*••••••*••*•••***/ 

/•  keyopts.c  —  key  options  which  control  progress  of  Voice  during 
execut ion . 

•/ 

/**••••**••••••••«••••••*•***••**••*••***•••••••*••••*••*••••••**•••*•••*/ 


•include  <stdio.h> 

•include  <graph.h> 

•include  <conio.h> 

•define  EXYIDE  (138*8)  /‘divisible  by  both  2  and  4*/ 
•define  VHITE  319 
•define  BUCI  256 

void  putcursO ; 
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void  delnagO; 
void  1 cursor O ; 
unsigned  int  sndintSO; 
int  getkeyO ; 
int  dashoff (); 


keyopts(chanknt  .choice  .torn) 

int  chanknt;  /*sane  as  nonchan  in  main  •/ 

int  choics;  / ‘display  option  sat  in  adopt  C*  of  channels)*/ 

int  lozm;  /*saved  ontpnt  data  is  raw  data  or  colorcodss*/ 

{ 


extern  unsigned  int  *absptr,  doffinc; 

extern  long  unsigned  int  absaddr; 

extern  int  speed,  gain,  inkey,  tknt,  lcol,  rcol; 

extern  char  cnxcolor; 

int  txtcolor,  location,  i; 
unsigned  int  incr; 
unsigned  int  dashttq>  «  0; 

lcol  «  0; 
rcol  «  60; 

incr  «  EX¥IDE;/*defanlt*/ 
cur color  «  WHITE; 

inkey  ■  getkeyO; 
switch  (inkey) { 
case  K_X: 

quit : 

end  int  50 ; 

dashoff () ;  /•  turn  off  the  Did  loop  •/ 
.clearscreen (.GCLEAASCKEEI ) ; 

.display cur sor(  .OCUESOROI  ) ; 
setscrO ; 

.set videonode (.DEFAULTHODE) ; 
exit(O); 
case  I_OP: 

♦♦gain; 

break; 

case  K.DOHI: 

— gain;  /*allosa  negative  gain*/ 

break; 

case  K.LEFT: 

if  (speed  >  256)  speed  -*  256; 

else  speed  *  0; 

break; 

case  X.UOHT: 
speed  +•  256; 
break; 
case  I. CEL. 

delnagO;  /*delete  clipping  light*/ 
break; 
case  X_F ; 

endintSO;  /estop  MU*/ 
dashoff () ; 

while (  getkeyO  !■  X.SPACE  ); 
dashin(absptr .chanknt) ;  /‘restart  DMA*/ 
tknt  ■  0; 

while (  dashtsp  <  512  ) 

{ 

dashtnp  ■  dashgetO; 
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> 

break; 
cam*  K.H: 
helpvc«(l) ; 
break; 
caae  X.I: 
endintSO ; 
dashoff O ; 

dearasgO  ;  /eeraae  existing  aessags  window*/ 
clearhlpO ;  /eeraae  Bain  kelp  aeai'/ 

doffinc  -  El VIDE ; 
incr  »  doffinc; 

lcol  •  0;  rcol  «  60; 

getaea( choice ,incr ) ; 
lcnraorO ; 

/*IB:  the  following  inkej  r aloes  are  entered  in  lcnrsor*/ 

while (  inkep  !»  1.SP1CE  > 

{ 

/»  allow  repeated  zoom  •/ 
wkile(  inker  “  E-IETUM  ) 

{ 

g«ta«a(choic*,incr) ;/*calcolat*  the  start  and 

end  offsets  and  pages,  and 
displar  the  dellaited  signal*/ 

lcol  *  0;  rcol  *  60; 
lcnraorO ; 

> 

/•  allow  repeated  waves  to  file  •/ 
while (  inker  ""  U  ) 

{ 

g«ta«a(choic*,incr)  ;  /*no  new  displar*/ 
lcnraorO ; 

> 


/*  send  the  previous  displar  to  the  screen  •/ 
while  (  inker  •"»  E-BSC  ) 

{ 

getnen(choice , incr) ; 
lcnraorO ; 


clearnsgQ  /•  erase  contents  of  Message  center  */ 

if (  inker  "  «-X  ) 
goto  quit; 

)  /*end  of  !"E_SP1CE  loop*/ 

/•••••••reset  at  end  of  n«aory  displar (K.H)  •*•*•*•••••/ 

/•restart  the  1/D  board*/ 
doffinc  >  El VIDE; 
dashin(absptr , chanknt) ; 
tknt  ■  0; 

/•Do  soae  introductory  loops  to  prevent  garbage  data 
(retrieved  froa  BEFORE  the  first  aave-bnffer)  froa 
being  displaped.*/ 
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ahila(  dashtap  <  S12  ) 

{ 

dashtap  »  dashgatO; 

} 

/•trui  tha  old  cursors*/ 
location  •  rcol; 
put cars (location) ; 

location  ■  lcol; 
pntcnza(location) ; 

/•araao  aida  saaafora*/ 

if(  choica  •«  5  ) 

{ 

for(  i>0;i<60;i*O 
araaa(i); 
dalsagO ; 

> 

/aaraaa  halp  display*/ 
claarhlpO; 

/•put  a  cursor  at  start  of  running  display*/ 
linacuraO ; 
braak; 

dafault : 

aassagas(3);  /•display  of  lagal  kays*/ 
braak; 

)  /*and  of  outsida  saitch  •/ 

> 


/•LABEL?. C 

Graphics  rout  inas  to  aatabliah  and  display  annotations  bafosa 
start  of  spectrogram  display: 
labala 
boras 
blkbox 
putft 

•/ 

/*•*•••**•••••*•**••**•*•••*•**•*••••••**•••**•*•••**••••**••*•*•••***/ 

tincluda  <atdio.h> 

tincluda  <graph.h> 

int  ros,trosl,tcoll,xl,iyl; 


/..••aaaa*.a*aa**aa*aaaa.**aaa*aaaaa.aaaaaaaaa.aa.*a**.*a*aa*aaa**./ 

/•  labala.c  *  aritas  labels  to  scraan  for  main  VOICE  using  Microsoft 
C  aarsion  6.0  graphics.  Thara  ara  8  pixela/coluaa,  14  pixala/roa. 

nota:  tha  4-channal  display  (diap  ■  1)  is  not  yat  i^laaMntad*/ 
/•**••••••••*••••*•*•••*••••••••••••*••••••••••••••••••••••••••••••/ 

labala (diap) 

int  diap;  /*this  is  “option"  in  sain ,  and  is  sat  in  cadopt  •/ 
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{ 

•stars  1st  adgaQ; 

•stars  ist  colors D ; 
ist  i.j; 
ist  y2; 

ist  oldcolor ,  colortst ; 

ist  colk .bosk;  / *sab«r  of  colons,  sober  of  bosas  saadad*/ 

char  tbsf [5] ; 
char  bound [6] ; 

/•initialise  for  Hicrosoft  graphics*/ 

_satTidaoaoda(_EKESCOLOK) ;  /•  asst  do  this  bafora  sotting  tha  palatta*/ 

/•••sat  sp  and  display  voltage  color  coda  bosas  with  asnotatioss***/ 

oldcolor  ■  (  .gatcolorO  ) ;  /*••▼•  tha  csrrast  dafaslt  color*/ 

chcolor(colors) ;  /*sat  op  tha  color  palatta*/ 

/•sat  np  for  altarnata  display  scraass*/ 

ifCdisp  !*  1)  /*osa  and  two  channel  displays*/ 

{ 

„satcliprgn(0, 256,640,350) ; 

trowl  ■  22; 

si  -  2; 

iyl  -  294; 

tcoll  »  4; 

colk  *  2; 

bosk  *  4; 

> 

•Isa 

{  / *f onr-channal  display*/ 

_Setcliprgn(504, 0,640,350) ; 
trowl  ■  15; 

si  a  S12;  /•  4  8  pisals/colon*/ 

iyl  a  196;  /•  •  14  pisals/row,  this  is  row  14*/ 

tcoll  ■  68; 

colk  ■  1; 

bosk  a  10; 

> 

/•establish  tha  area  where  all  these  bosas  sill  ba  written*/ 

.sattastwindow(trowl , tcoll , (trowl*bosk) , (tcoll *8)> ; 

/•low  saka  tha  bosas  and  annotate  than  .  .  .  •/ 

/•first  ostpnt  a  black  bos  enclosed  by  a  white  border*/ 
row  ■  1; 
blkbos(O) ; 

/•last  conplata  3  nora  bosas  in  tha  first  colon*/ 
for(i  -  1  ;  i  <  4  ;  i*-») 

.satcolor(i); 

y2  ■  iyl  ♦  11; 

.ractasgla  (.amumhZOk  ,sl ,  iyl ,  (sl*18) ,  y2)  ; 
_s«ttastpositios(i*l,2) ; 
itoa(adga[i] ,bonnd,10) ; 

_oattast(  bound  ); 
iyl  -  y2  ♦  3; 

> 

/•Do  tha  ranaining  colnass*/ 
if (colk  >  1) 

{ 
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xl  ■  160; 
iyl*  394; 
tcoll  20; 

row  ■  1;  t 

} 

•1m 

row  *  6; 

bozo* (colb , bo zb) ; 

/•Finish  colorcodo  soction  by  nuttiif  tbs  dsfsnlt  background  color*/ 
_sotcolor(  oldcolor  ) ; 

/•••••••••••••••••••End  of  annotated  bozos*««***»**»*»*******»***/ 

/•sot  ip  tozt  color*/ 
colortzt  •  (10); 

_ sot tort color (  colortzt  ) ; 

/•••  innotato  tbo  saaqplo  rot •  ••/ 

if  (disp  ••  1)  /•  4-sMopl«  display*/ 

{ 

.sottoxtwindood ,64,4,80) ; 

_sottoxtposition(l ,1) ; 

.oattoxt ("Fnax  *  kHz1'); 

> 

•Iso  /•  1  or  2-sajq>l*  display*/ 

{ 

„aottoxtsindow(l,64,10,80) ;/•  Col  63  is  first  nsabl*  col  for  tszt*/ 
.sottoxtpoaitioad  ,1) ; 

.onttazt ("Ffeaz  -  biz"); 

_sottoxtpoaition(9,l) ; 

_ont tazt ( "Fain  -  0") ; 

> 

/•••sot  ap  a  Hoasago  Cantor**/ 

.aotcolor (63) ; 

.roct angla (.OBOIDEI ,500,265,639,349); 

/•  drao  horizontal  lino  botsoon  annotations  and  display  aroa*/ 

.■OTOtod  ,265) ; 

_liaoto(460,265) ; 

> 


/•••••••*•••*••••*••••*•*•**•••**•••••••*••••*•••••••••**••••••••••«/ 


/•bozoa.c  -  drao  and  annotate  "colbnt"  colgmi  of  "bzbnt"  color 
codas  in  oacb  colasm. 


bozos(colbnt , bzbnt) 
int  colbnt, bzbnt; 

{ 

oztorn  int  roo.zl ,lyl .trool , tcoll ,adga[] ; 
int  1, j ,z2,y2,ond; 
char  bo  and  [8]  ; 

•ad  ■  0; 

for  (j  ■  0  ;  j  <  colbnt  ;  j**) 

{ 

•nd  ♦*  4; 
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.aettextsiadoaCtroal  ,tcoll ,  (troal+bxknt) ,  (tcoll+8) )  ; 
x2  *  si  ♦  18; 

for(i  *  and  ;  i  <  and+bxknt  ;  i++) 

if(edg*[i+l]  <*  0)  goto  laatbox ; 
y2  -  iyl  *  11; 

. oot color (1) ; 

.rectangle  (.QFILLIITEUOk,  xl ,  iyl  ,x2  ,y2) ; 
_aettextpoaition(roa,2) ; 
ito*(*dg*[i] .bound, 10) ; 

_ out text (  bound  ) ; 
lyl  ■  y2  ♦  3; 

**row; 

> 

xl  ♦»  180; 
lyl  -  294; 
tcoll  +»  20; 
row  »  1; 

> 

laatbox :  blkboxd) ; 

> 


/•*•••***•••••*•••••••••••••••••••••••••••••••••*•••••••••••••••*••*•••/ 

/•  blkbox.c  —  output*  to  ocroon  a  black  cub*  outllnod  by  uhita. 

•/ 

/•*•*••**•*••••••*••••••***•••••••••••••••*•••**••••**•«•••*••••••*••••/ 


blkbox(edgeknt) 
int  edgeknt; 

{ 

char  bound [8] ; 
int  blkbord; 

oxtom  int  roa, troal,tcoll,xl, iyl, edge  □ ; 

_*etcolor(83) ;  /*n**da  to  b*  aot  to  bright  ahita  for  th*  border*/ 

.roctangl* ( .0B01DE4 , x 1 , iyl , (xl+18) , (iyl+11)); 

_aott*xtpoxition(ro* ,2) ; 

itoa(«dg*[*dg*knt'J  .bound, 10) ; 

.outtextC  bound  ); 
iyl  ♦«  14; 


/•  putft.c  —  aritoa  value  of  frequency  to  apocifiad  location  on  acroon. 

*/ 

/•*••*•••*•••*••*••••••*••*•***•••••*•••*•••••**•••••••*•••***••**•*•••*•/ 

putft (froq.aocdif ,diap) 
double  aacdif ; 
float  froq; 
int  diap; 

{ 

char  aoconda[8] ,frqnax[6] ; 
int  precision  *  3; 

/•fix  up  the  acroon  for  writing  an  NSC  Graphic*  label*/ 
txtpropO ; 

gcat(freq, precision, frqaax) ;  /• convert  argl  froa  double  to  char*/ 

/•put  max  frequency  on  the  y  aria*/ 

.aettexteiadoad  ,84,2 ,80) ; 

.aettextpoaitionO  ,8) ; 
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.outtaxt  (  frqnar  ); 


> 


/•LCUHSOH.C 

lcuraor.c  —  vritas  2  cursor  linos  bracksting  holtod  running  display . 
Uloss  osar  to  shift  cursors  loft  and  right. 

Function  hoys: 

FI  -  loft  cursor  both  loft 
F2  -  loft  cursor  novas  right 
F3  -  right  cursor  novas  loft 
F4  -  right  cnrsor  novas  right 

Daf salts : 
lcol  *  0 
rcol  *  80 

•/ 

/••••••••••••••••••••••a*********************************** . / 

Sindnda  <stdio.h> 
tinclnda  < graph . h> 
tincluda  "kaydsfs.h" 

•dsfina  WHITE  319  /•  this  is  63  ♦  256  •/ 
tdafina  BLiCI  256  /•  this  is  0  ♦  256  •/ 

void  pat cur a O ; 
int  gatkayO  ; 

/••••••••••••••••••••••••••••••••••••••••••••••••••••♦•••••••••••••••a/ 

lcursorO 

{ 

axtarn  int  lcol, rcol,  inkay; 
art  am  char  curcolor; 

int  i,  j,  location,  txtcolor,  trapflg,  pxcol; 
curcolor  *  WHITE; 
trapflg  “  0; 

vhila(l) 

{ 

if (kbhitO  ) 

{ 

inkay  *  gatkayO; 
ssitch  (inkay) 

{ 

casa  K.Fl : 
if (lcol  >  0) 

{ 

location  *  lcol; 

putlcurs(locatioa) ;  /aarasa  currant  shita  cursor*/ 

—lcol; 

location  ■  lcol; 

putlcurs(location) ;  /*srita  shita  cursor  in  nas  position*/ 

) 

hr ask; 
casa  I.F2: 

location  *  lcol; 
if (  lcol  **  0  ) 

putcurs(location) ; 

also 

put lcurs (location) ; 


"2 


?  if  (  ♦♦lcol  >■  (rcol  -  3)  ) 

{ 

printfC'W); 

— lcol; 

> 

location  ■  lcol; 
pntlcnro (location) ; 
broak; 
caao  (_F3: 
location  “  rcol; 
if  (  rcol  “  60  ) 

put cor a (location)  ; 

also 

putrcnra (location) ; 

if (  — rcol  <«  (lcol  +  3)  ) 

printfC'W); 

♦♦rcol; 

location  •  rcol; 
putrcurs(location) ; 
broak; 
cans  IJM: 
if (rcol  <  59) 

{ 

location  *  rcol; 
putrcurs(location) ; 

♦♦rcol; 

location  •*  reel; 
putrcurs(location) ; 

> 

broak; 
ease  K_DEL: 

dolaa(() ;  /*doleto  clipping  light  boloo  oaplitudo  save*/ 

broak; 
caso  I_l: 

holpvco(2);  /•orite  to  tho  ’help*  sindoe*/ 

broak; 
caao  1.1 : 

if(  trapflg  ) 
cloazasgO ; 

rotnrn;  /oshot  don  tho  program*/ 

caso  I_S: 

if(  trapflg  ) 

cloazasgO; 

rotnrn;  /*aave  delimited  data  to  file*/ 

caso  K. SPACE : 

if (  trapflg  ) 
cloazasgO ; 

rotnrn;  /•rotnrn  to  running  display*/ 

caso  I.1ETVM: 

if (  trapflg  ) 
cloazasgO; 

return;  /•zoom  display  tho  do 1  ini  tod  data*/ 

caso  K.E3C: 

if(  trapflg  ) 

cloazasgO ; 

rotnrn;  /*shos  tho  pro* ions  across  display*/ 

dofaalt : 

asssagos(l);  /*display  legal  keys  in  sassage  center*/ 
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trapflg  ■  1; 
bttik; 


> 

> 

> 

> 

/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee****/ 

/•linecurs.c  —  display*  a  vertical  shite  line  as  a  cursor . 

This  version  good  for  ona~channel  display  only . 

•/ 

/•.*•**•*******•**•••**,•**•****•**•••**••*•••.*••*•••**••***••••/ 

unsigned  int  serntopO; 
unsigned  int  (*aove)(); 

linecursO 

{ 


extern  char  colorl 0 ; 
extern  int  cycle; 
int  i,  j ; 

for(  j«0  ;  j<128  ;  Jee) 
colorl [j]  »  WHITE; 

■crntopCcolorl ,  cycle'*-*-) ; 

if (cycle  >«  8) 

{ 

cycle  *  0; 

■oveO ; 

> 


/*•••*•*•••*••***•*••***•***•**•*•**•*•**•*******•***•*••*••••*•***•/ 

/**e«ee..ee,.eeeee.e,„*e,„e.,.*ee,..eee.ee„e.,„e.ee,..ee,.ee,„e/ 

/•HESSAOES.C 

■essages.c  —  Functions  to  vrite  to  and  clear  ness ages  f roa  the  Voice 


aessage  center.  Message  box  vas  created  in  function 
labels. c,  uith  pixel  dimensions  500,265  to  639,349 
•  8  pixels/col,  14  pixela/ro*. 


•include  <graph.h> 

•include  <stdio.h> 

/•.••••••••••••••••••••••••••••.••eeeeeeeeeeeeeee***.*.***************/ 

aessages(pick) 

int  pick; 

{ 

extern  char  f  ididQ ,  newf  id[]  ; 

int  reply,  ansser,  txtcolor,  nucolor,  i; 

nucolor  *  5; 

ansser  *  0; 

txtprepO ; 
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tztcolor  •  .got t«xt color () ; 

.sat tartcolorCtxt color) ; 

_sattaxtsindoo(20, 64,35, 80) ; 

claaxaagO ;  /*gat  rid  of  any  currant  oaoaagaa*/ 

printf C\a") ;  /*riag  a  ball*/ 

if (  pick  —  1  ) 

{ 

/ 'display  a— a  of  kaya  lagal  during  aaaary  buff ar  displays/ 
_aattaxtpoaition(l ,1) ; 

.oottartC  Lagal  kays:"); 

_sattartposition(2,2) ; 

.oottart  CF1  ,F2,F3,F4") ; 

_sattartposition(3,2) ; 

.oottartC "i,  s,  h  (balp)"); 

.sattaxtposition(4 ,2) ; 

.oottart ( "<aoc> , <dal>" ) ; 

.aatt aztposit ionCS , 2) ; 

.onttart  ("<apaca> ,<antar>") ; 

} 

alsa  if  (  pick  “  2  ) 

{ 

/•loom  limit  warming*/ 

.aattartpoaition(l,l) ; 

.oottart ("lo  zoos  display."); 

_aattartpoaition(3,l) ; 

.oott art ( "F ilasaaa? C T/I )  "); 

.sattartposition(4,l> ; 

.oottart  (••»"); 

raply  ■  gatchO; 

if(  raply  ■■  *T*  II  raply  «■  >y>  ) 
aosoar  «  1; 

} 

alsa  if  (  pick  —  3  ) 

{ 

/•display  naaas  of  kays  lagal  during  raaltiaa  displays/ 
.sattartpositionCl ,1) ; 

.oottart ("  Lagal  kays;"); 

.sattaztposition(3,2) ; 

.oottart ("h  (halp)"); 

_sattartposition(4,2) ; 

.oottartCf,  s,  r,"); 

_sattaztposition(B,2) ; 

.oottart ( "<dal>" ) ; 

> 

alsa  if  (  pick  “  4  ) 

{ 

/•tall  osar  ha  has  poppad  back  to  original  display  of  Maory*/ 

.sattartposition(2,l) ; 

.oottartC  Priaary  Maory  "); 

_sattartposition(3,l) ; 

.oottartC  display"); 

> 

alsa  if  (  pick  —  S  ) 

< 

/•for  filasaaa  I/0«/ 

.sattartposition(2,l) ; 

.oottartC  Fila  ID?  ") ; 
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_sattartposition(3,l) ; 

.onttart (“  »"); 

> 

•Is*  if  (  pick  “  6  ) 

{ 

/•for  filasava  I/O*/ 

_sattartpoaitio&(l,2) ; 

.onttart (  nasfid  ); 

_ssttartposition(2,l) ; 

.onttart (  "Tkia  fill”) ; 

_sattartposition(3,l) ; 

.onttart ("contains  data."); 
.sattartpoaition(4,l) ; 

_onttart(“ipp«nd?  (Y/I)"); 
_sattaxtposition(5,l) ; 

_onttart("»") ; 
raply  •  gatckO; 

if (  raply  mm  >t>  ||  raply  “  >n’  ) 

ana**r  »  1; 

} 

also  if  (  pick  “  7  ) 

{ 

/•for  filasasa  I/O*/ 

/•display  thi  filanaaa*/ 

.*attartpoaition(2,l) ; 

.onttart ("Tha  sara  fila  is"); 
.sattartposition(3,2) ; 

.onttart (  nasfid  ); 

/•gisa  a  prograaa  raport  to  tka  usar*/ 
.sattaztpoaitionCS , 1) ; 

.onttart ("Sana  in  prograaa"); 

> 

alas  if  (  pick  ■■  8  ) 

{ 

/•for  filasasa  I/O*/ 

/•display  tka  filanaaa*/ 

_sattartpoaition(l  ,2) ; 

.onttart (  nasfid  ); 

/•gisa  a  final  prograaa  raport  to  tka  naar*/ 
.aattartcolor(nncolor) ; 
.sattartpoaition(S.l) ; 

.onttart ("Sana  conplatad"); 
.sattartcolor(trtcolor) ; 


alsa  if  (  pick  ■*  9  ) 

{ 

.sattaxtposition(3,l) i 

.onttart  ("Skosing  ”); 
_aattartpoaition(4,l) ; 
.onttart  ("pras ion*  display"); 


alsa  if  (  pick  ■■  10  ) 

{ 

.sattaztposition(2,l) ; 
.onttart  (  "Tki*  f ila") ; 


_sattextposition(3,l) ; 
.onttext (“contains  data."); 
_sattextposition(4,l) ; 
-onttext ("Eater  no*  Hit")  ; 
_aettextposition(S,l) ; 
_outtext("»") ; 

> 

•la*  if  (  pick  “  11  ) 

{ 

_settaxtposition(2,l) ; 
_ontt*zt(“lo  data  saood") ; 

> 

ratarn(anaaar) ; 


/.*.**e...**.o***oee**,e.e***ee..**e.e***e...************************e**/ 


/•cloarasg. c 

Clears  out  any  aessages  vritten  to  screen  in  aesaage  area  lines  20-25 , 
colnana  64-80. 


cleaxasgO 

int  txtcolor,  i; 
txtprepO ; 

txtcolor  *  .gettextcolor () ; 
.settextcolor (-getbkcolor ()  ); 
_s*ttextwindos(20,64 ,25 ,80) ; 

for(  i-1  ;  i<6  ;  i+e  ) 

_aettextpoaition(i,l) ; 

_ oat text ("xxxxxxxxxxxxxxxx") ; 

} 

.settextcolor (txtcolor) ; 


> 


; HOVE. ASH 

;  Sotos  an  6-pixel  colnan  of  data  (written  at  righthand  aide  of  display 
;  window)  to  the  left,  allowing  aora  data  to  be  written  on  tbs  right 
;  without  oxerwriting  existing  data. 


.TEXT 

-TEXT 

seoheit 

EADS 

BYTE  PUBLIC  ’CODE’ 

-DATA 

-DATA 

SEOHEIT  HOAD  PUBLIC 
EIDS 

•DATA’ 

COIST 

COIST 

SEOHEIT 

EIDS 

VOID  PUBLIC 

’COIST 

-BSS 

-BSS 

SEOHEIT 

EIDS 

VOID  PUBLIC 

>BSS  ’ 
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DGROUP  a ROUP  COIST,  .BSS ,  .DATA 

ASSUME  CS:_TEXT,  DS: DGROUP,  SS:  DGROUP,  ES: DGROUP 

.TEXT  SEQHEIT 

PUBLIC  .noeetop 


.■OTAtop  PROC 

FAR 

push 

bp 

■Of 

bp,«p 

posh 

■■ 

push 

■i 

push 

di 

push 

ds 

■Of 

ax,  0a019b 

; video  ran  bass 

MOT 

as,  ax 

;sot  up  segment  point or 

MOT 

ds,  ax 

MOT 

dx,  3coh 

;sat  writs  sod«  1 

MOT 

al,  S 

;indax  register  S 

out 

dx,  al 

;ssnd  tbs  indsx 

Inc 

dx 

; point  to  node  rsgistsr 

MOT 

al.  1 

;chooso  node  1 

out 

dx,  al 

;sat  tbs  aodo 

cld 

; clear  direction  flag  (autoinc 

MOT 

bx,  0 

;bx  points  to  row 

MOT 

dx,  61 

;nuabor  of  columns  to  bows 

MOT 

bp,  80 

;naxt  row  pointer 

novrov : 

MOT 

di,  bx 

;di  »  destination 

MOT 

si,  di 

inc 

si 

;si  ■  source 

MOT 

cx,  dx 

;cx  a  coluan  counter 

rep  aonb 

;aowe  over  1  row 

add 

bx,  bp 

;point  to  next  row 

a^> 

bx,  10240 

;done  with  all  rows  ? 

jl* 

novrov 

;no,  go  do  next  row 

pop 

ds 

pop 

di 

pop 

si 

pop 

SS 

pop 

bp 

rot 

.aowetop  EIDP 


PUBLIC  .BOTefull 
.nowefull  PROC  FAR 


push 

bp 

MOT 

bp,sp 

push 

SA 

push 

Si 

push 

di 

posh 

ds 

MOT 

ax,  0a019b 

jrideo  ran  base 

MOT 

•a,  “ 

;set  up  segaent  pointer 

MOT 

ds,  ax 

MOT 

dx,  3ceb 

;set  write  node  1 
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aov 

al.  S 

;indax  rsgistar  E 

oat 

dx,  al 

;s*nd  tbs  indax 

lac 

dx 

;  point  to  aoda  rsgistar 

aov 

al,  1 

;cboos*  aoda  1 

oat 

dx,  al 

;sat  tbs  aoda 

eld 

;daar  dir  act  ion  flag  (aatoinc .  aovs) 

BOV 

bx,  0 

;bx  points  to  rov 

aov 

dx,  61 

jnnabar  of  colau  to  aov* 

SOT 

bp,  80 

;a*xt  rov  pointar 

again: 

■OT 

di,  bx 

;di  m  dastination 

mar 

si,  di 

inc 

si 

;si  s  soarea 

aov 

ex,  dx 

;cx  *  colaaa  coantar 

rap 

aovsb 

;aov*  ovar  1  rov 

add 

bx,  bp 

;point  to  aaxt  rov 

cap 

bx,  30480 

;don*  sitb  all  ross  T 

jla 

again 

;ao,  go  do  aaxt  rov 

pop 

ds 

pop 

di 

pop 

si 

pop 

■s 

pop 

bp 

rat 

.aovafnll  El DP 

.TEXT  KIDS 
BID 


;PUTCURS.ASH 

» 

; Writ*  diractly  to  tb*  EGA  Tid«o  111  This  root  in*  mwi  th«  vidao  drivar 
;is  IBH  coapatibl*  and  support*  EOi  sod*  10B  (  640x360,  16  colors) 

» 

.Writs  a  vortical  liaacarsor  to  tb*  scraan 
putcarsCtaxt  coins  numbs r) 

axtrn  .carcolor :BTTE 

.TEXT  SEOMEIT  BYTE  PUBLIC  ’CODE’ 

.TEXT  EIDS 

.DATA  SEOMEIT  VOID  PUBLIC  ’DATA’ 

.DATA  EIDS 

COIST  SEOMEIT  VOID  PUBLIC  'COIST’ 

COB  ST  EIDS 

_BSS  SEOMEIT  VOID  PUBLIC  ’BSS> 

_BSS  EIDS 

DO 10 UP  GAO UP  COIST,  .BSS,  .DATA 

ASSUME  CS : .TEXT ,  DS:DOIOUP,  SS:DOIOUP,  ES: DO ROUP 

.TEXT  SEOMEIT 
PUBLIC  .patcars 

.pot curs  PIOC  FAB 

posh  bp 
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■ot 

bp.ap 

push 

as 

posh 

si 

push 

di 

posh 

da 

■OT 

ax,  sag  .corcolor 

;pasa  sagaant  to  da 

■OT 

da,  ax 

■OT 

bx,  off sat  .corcolor 

;da : [bx] 

■OT 

dx,  3c ah 

;sat  t idao  srita  aoda  2 

■OT 

al,  S 

out 

dx,  al 

in  c 

dx 

■OT 

al.  2 

;Tidao  aoda  2 

out 

dx,  al 

■OT 

ax,  0a019h 

; point  to  top  laft  scraan  cornar 

■OT 

as,  ax 

set  up  bit 

aask  ragistar 

■OT 

dx,  3cah 

, point  to  addrass  ragistar 

■OT 

al,  8 

;bit  mask  ragistar 

out 

dx,  al 

;addrass  tha  ragistar 

inc 

dx 

; point  to  data  ragistar 

■OT 

ax,  80h 

;aask  oot  all  bits  axcspt  bit  7 

out 

dx,  al 

;sand  data  to  aask  ragistar 

XOK  tha  cursor  color  so  that  tha  scraan 

data  can  ba  radisplajad  latar 

dec 

dx 

■OT 

al,  03h 

out 

dx,  al 

inc 

dx 

■OT 

al,  018h 

out 

dx,  al 

pot  tha  color  into  tha  aask  ragistar 

■OT 

dx ,  ds :  [bx] 

;gat  tin  coluan  nuabar  shara  cursor  is  to  ba  arittan 
■oa  cx ,  [bp+6] 

■ot  bx,  cx  ;lo«d  aitb  acraan  colon  nuabar  to  arite  to 


;dras  a  pixal 


■OT 

al.as: [bx] 

;fill  tha  latch  ragistars 

■OT 

al,  dl 

;pixal  color 

■OT 

as : [bx] ,  al 

;dra«  tha  pixal 

add 

bx,  80 

;point  to  pixal  balos 

csg> 

bx,  20480 

; 20480  for  2S6  pts  —  coluan  bottoa 

jl 

coll 

• 

pop 

df 

pop 

di 

pop 

si 

pop 

as 

pop 

ret 

bp 

.pot cor a  EIDP 
.TEXT  BIDS 
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BIS 


/••eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 


,-PUTLCURS.ASK 

I 

;Hrit«  a  vertical  linecursor  to  the  screen  at  specified  "taxt"  column 
;sith  the  cursor  appearing  aa  a  left-bracket 

;  argument  —  putlcnra  (text  colon  number) 

; Write  directly  to  the  EGA  video  UK.  This  routine  assumes  the  video  driver 
;is  IBM  compatible  and  supports  EGA  mode  10H  (  640x360,  16  colors) 

extra  .curcolor : BYTE 

.TEXT  SEGUE rr  BYTE  PUBLIC  ’CODE’ 

.TEXT  BEDS 

.DATA  SEGMEIT  WORD  PUBLIC  ’DATA’ 

.DATA  EIDS 

COIST  SEGMEIT  HOED  PUBLIC  >COIST> 

COIST  EIDS 

_BSS  SEGMEIT  VOID  PUBLIC  >BSS> 

_BSS  EIDS 

DGRDUP  GROUP  COIST,  .BSS,  .DATA 

ASSUME  CS.-.TEXT,  DS:  DO  ROUP,  SS: DGRDUP,  ES:  DGRDUP 

.TEXT  SEGMEIT 
PUBLIC  .putlcura 

.putlcnra  PROC  FAR 


push 

bP 

MOT 

bp.ap 

push 

as 

push 

si 

push 

di 

push 

da 

MOT 

ax,  aeg  .curcolor 

;pass  sapient  to  da 

MOT 

da,  ax 

th«  coins 

n  number  share  cursor 

is  to  be  written 

MOT 

ex,  [bp+6] 

MOT 

dx,  3c  eh 

;set  video  write  mode  2 

MOT 

al,  6 

out 

dx,  al 

inc 

dx 

MOT 

*1.  2 

;video  mode  2 

out 

dx,  al 

MOT 

ax,  0a019h 

;  point  to  top  left  screen  corner 

MOT 

as,  ax 

up  bit  mask  register 

MOT 

dx,  3ceh 

;point  to  address  register 

MOT 

al,  8 

;bit  mask  register 

out 

dx,  al 

;address  the  register 

inc 

dx 

;point  to  data  register 

MOT 

ax,  3SS 

,1111  1111  -  mask  seta  cursor  width 

out 

dx,  al 

;send  data  to  mask  register 
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;XOI  the  cursor  color  so  that  tho  scroon  4* to  can  bo  radisplayad  1st or 


doc 

dx 

BOV 

al,  03h 

out 

dx,  al 

lac 

dx 

BOY 

al,  OlSh 

oat 

dx,  al 

pat  tho  color  into  tho  out  register 
boo  br,  off sot  .cnrcolor 

boo  dz ,  ds:D>z] 


ilosd  scroon  colon  naabor 
boo  bx,  cx 


dr ob  tho  first  pixel  ros  in  tho  coin 


BOY 

al,os: [bx] 

;fill  tho  latch  registers 

BOY 

al,  dl 

;pixal  color 

BOY 

os: [bx] ,  al 

;dras  tho  pixal 

;  nos  rodofino  tho  aask,  and  draw 

tho  rest  of  the  colnan 

;aet  up  bit 

aask  register 

BOY 

dx,  3c oh 

; point  to  addrass  rogistor 

BOY 

al,  8 

;bit  aask  register 

ont 

dx,  al 

; addrass  tho  rogistor 

i&c 

dx 

;point  to  data  rogistor 

BOY 

ax,  128 

;1000  0000  -  aask  sots  cursor 

ont 

dx,  al 

;send  data  to  aask  rogistor 

;I0R  tho  cursor  color  so  that  tho 

scroon  data  can  bo  redisplayed  later 

doc 

dx 

BOV 

al,  03h 

out 

dx,  al 

lac 

dx 

BOY 

al,  018h 

ont 

dx,  al 

pat  tho  color  into  tho  Bask  rogistor 

BOY 

bx,  offset  .cnrcolor 

BOY 

dx ,  ds : [bx] 

;load  scroon  colnan  nnnbor 

BOY 

bx,  cx 

i0 


;drat  a  piztl 

coll :  BOY 

al.as: [bx] 

;f ill  tho  latch 

rogiatora 

BOY 

al,  dl 

ipixal  color 

BOY 

as : [bx] ,  al 

;dras  tho  pixal 

add 

bx,  80 

; point  to  pixel 

below 

cap 

bx,  20400 

; colnan  bottoB 

ji 

coll 

;  finally,  rodofino  Bask  and  draw  tho 


BOY 

dx,  3cah 

BOY 

al,  8 

oat 

dx,  al 

inc 

dx 

BOV 

ax,  265 

oat 

dx,  al 

last  pizol  ros 

; point  to  addrsss  rogistor 
;bit  nask  rogistor 
; address  tho  rogistor 
; point  to  data  register 
;  1111  1X11  -  Bask  sots  cursor  width 
;send  data  to  Bask  register 
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;XOB  tkt  cursor  color  so  that  tho  serosa  data  can  bo  redisplayed  latar 


d«c 

dz 

■OT 

al,  03h 

out 

dz,  al 

inc 

dz 

■OT 

al,  01 8h 

out 

dz,  al 

pat  the  color  into  the  Bask  register 
bov  bz,  offset  .curcolor 

bot  dz,  ds:[bz] 

;load  screen  colon  amber 

bot  bz,  cz 

add  bz,  20400 

;  draw  the  last  pizel  row  in  the  col 

bot  al,es:[bz] 

bot  al,  dl 

bot  as : [bz] ,  al 


pop  da 

pop  di 

pop  si 

pop  ss 

pop  bp 

rat 

.putlcurs  OOP 
.TEXT  EVOS 

on 


;fill  the  latch  registers 
;pizel  color 
;dras  the  pizel 


PUTHAG.ASH 

Write  directly  to  the  EGA  video  UK.  This  routine  assises  the  video  driver 
is  IBH  coapatible  and  supports  EGA  Bode  101  (  640x350,  10  colors) 


.TEXT 

SEGHETI 

BYTE  PUBLIC  ’CODE’ 

.TEXT 

BIDS 

.DATA 

SEGUE. 

t  VOID  PUBLIC  ’DATA’ 

value 

eqn  80h 

.DATA 

KIDS 

COIST 

SEQHEVT 

VOID  PUBLIC  ’COIST 

COIST 

BIDS 

.BSS 

SEOHEIT 

VOID  PUBLIC  ’BSS’ 

_BSS 

SIDS 

D0B00P  810 OP  C0I8T,  .BSS,  .bilk 

ASSOHE  CS:  .TEXT,  D8:MB0UP,  SS : DQ10UP ,  ESiDGlOUP 

.TEXT  SEOHEIT 

PUBLIC  .putaag 
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.putaag  PIOC  Fil 


posit 

bp 

mow 

bp.sp 

posit 

ss 

posh 

si 

posh 

di 

posh 

ds 

mow 

di.  [bp+6] 

;pau  offset  of  data  buffer 

mow 

ax,  [bp*8] 

;pau  segaent  to  ds 

mow 

ds,  ax 

mow 

si,  »0h 

;aask  register 

mow 

dx,  3c eh 

;set  video  write  aode  2 

mow 

*1,  5 

out 

dx,  al 

inc 

dx 

SOT 

al,  a 

; video  aode  2 

oot 

dx,  al 

mow 

ax,  0a019h 

;  point  to  top  left  screen  corner 

mow 

es,  ax 

;set  up  bit  auk  register 

••tup :  mow 

dx,  3cah 

;  point  to  addrus  register 

mow 

al,  8 

;bit  auk  register 

out 

dx,  al 

; address  the  register 

inc 

dx 

; point  to  data  register 

■OT 

cx,  [bp+10] 

;load  co loan  naabar  froa  call  variable 

mow 

ax,  80h 

;load  value  to  be  shifted 

shr 

ax,  cl 

icoapnte  bit  auk  for  proper  colnan 

oot 

dx,  al 

;send  bit  auk  to  aaak  register 

;get  the  bar  height  to  be  plotted 

plotting  a  syaaetric  envelope  -  ipaetry  about  a  centerline 

;plot  black  bar 

,  followed  by  a  color 

bar  with  width  syvaetric  about  the 

;aiddle,  finished  off  with  another  black  bar 

■OT 

ax,  64 

;load  aax  height 

sob 

ax ,  ds :  [di] 

;sabtract  bar  height 

■OT 

dx,  80 

■ol 

dx 

;get  row  number  to  start 

odd 

ax,  10240 

.-locate  below  spectral  window 

odd 

ax,  60 

;go  to  coluan  60 

■OT 

cx,  ax 

;cr  holds  the  address  for  top  boundary 

■OT 

ax,  64 

;do  again  for  bottoa  boundary 

odd 

ax ,  ds :  [di] 

;add  bar  height 

■OT 

dx,  80 

■ol 

dx 

;get  row  nnaber  to  start 

odd 

ax,  10240 

;locate  below  spectral  window 

odd 

ax,  60 

;go  to  coltou  60 

mow 

dx,  ax 

;dx  holds  ths  address  for  bottoa  boundary 

mow 

bx,  60*10240 

;  address  to  start  on(60  cols, 2*128  rows) 

colt :  mow 

al ,  es : [bx] 

;f ill  the  latch  registers 

mow 

byte  ptr  es:[bx],  00 

.-draw  ths  pixel 

odd 

bx,  80 

; point  to  pixel  below 

cap 

bx,  cx 

;are  wa  at  the  threshold 

ji 

coll 

col2 :  aov 

al ,  es :  [bx] 

;load  color  4  for  lower  part 

BOV 

byte  ptr  es : [bx] ,  04 
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jl 


bx,  80 
bx,  dx 
col2 


;  don*  with  eolat? 


co!3: 


finish: 


■OT 

al,  os: [bx] 

;losd  color  4  for  louor  part 

■OT 

byte  ptr  os : [bx] ,  00 

add 

bx,  80 

cap 

bx,  20480 

;dono  with  colimnT 

jl 

col3 

pop 

ds 

pop 

di 

pop 

si 

pop 

ss 

pop 

bp 

rwt 


.putaag  El  DP 

.TEIT  EIDS 
BID 


;FUTRCURS.ASH 

I 

;Writo  •  wwrticsl  linocursor  to  tho  serosa  at  spocifiod  “toxt"  coluan 
;sith  tho  cursor  appearing  us  u  right-brackat 

» 

; argument  —  putreursitaxt  colimn  aimbor) 

;  Writs  directly  to  tho  EGA  widoo  1U  This  routiao  assusws  tho  widoo  driwor 
;is  IBM  comp  at ibis  and  supports  EQ1  mods  10H  (  640x350,  16  colors) 

oxtrn  .curcolor : BYTE 

_TKIT  SEQKEIT  BYTE  PUBLIC  >C0DE> 

_TEIT  EBBS 

.DATA  SEGHEBT  WORD  PUBLIC  *DATA> 

.ORTA  EIDS 

COIST  SEGUE IT  WORD  PUBLIC  ’COIST' 

COIST  EIDS 

_BSS  SEGKEIT  WORD  PUBLIC  >BSS' 

_BSS  BIDS 

DOROUP  GROUP  COIST,  .BSS,  .DATA 

ASSUME  CS:_TEZT,  DS:  DOROUP,  S3 :  DO  ROUP,  E5 :  DOROUP 

.TEIT  SIS  REIT 
PUBLIC  .putreurs 

.put r curs  PROC  FAR 

push  bp 
■OT  bp.sp 

push  ss 
push  si 
push  di 
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pisk  da 


;paaa  Hptat  to  da 


■ot  ax,  aag  .curcolor 

■ot  da,  ax 

;gat  tha  colon  nunbar  whoro  coraor  ia  to  bo  orltton 


■OT 

cz,  Cbp+6] 

■OT 

dz,  3cah 

;aat  vidao  arita  aoda  2 

■OT 

al,  5 

oot 

dz,  al 

iac 

dz 

■ov 

al.  2 

;aidao  noda  2 

oot 

dz,  al 

■OY 

az,  0a019h 

; point  to  top  laft  acraan  coznar 

■OY 

OS,  ox 

aat  op  bit 

nak  ragiatar 

■OY 

dz,  3cah 

; point  to  addraaa  ragiatar 

■OY 

al,  8 

;bit  nak  ragiatar 

oot 

dz,  al 

; addraaa  tha  ragiatar 

iac 

dz 

;point  to  data  ragiatar 

■OY 

az,  255 

;1111  1111  -  nak  aata  coraor  oidth 

oot 

dz,  al 

;aand  data  to  nak  ragiatar 

XOR  tba  coraor  color  ao  that 

tho 

acraan  data  can  ba  radiaplayad  latar 

doc 

dz 

■OY 

al,  03h 

oot 

dz,  al 

iac 

dz 

■OY 

al,  018h 

oot 

dz.  al 

pot  tho  color  into  tha  mask  ragiatar 

■OY 

bz,  off aat  .corcolor 

■OY 

dz ,  da : [bz] 

load  acraan  colon  Dunbar 

naod  ona  colon  to  tha 

laft 

for  brackat  to  point  laft 

doc 

CZ 

■OY 

bx,  cz 

draa  tha  firat  pixal  roa  in 

tho 

coltam 

■OY 

al.aa: [bz] 

;fill  tha  latch  ragiatara 

■OY 

al,  dl 

;pizal  color 

■OY 

aa : [bz]  ,  al 

;dra*  tha  pizal 

noo  radafina  tha  nak,  and 

00004 

drav 

tha  raat  of  tha  colon 

aat  op  bit 

nak  ragiatar 

■OV 

dz,  3coh 

;point  to  addraaa  ragiatar 

■ov 

al,  8 

;bit  nak  ragiatar 

oot 

dz,  al 

;addraaa  tha  ragiatar 

iac 

dz 

;point  to  data  ragiatar 

■ov 

ax,  128 

;1000  0000  -  nak  aata  coraor  aidth 

oot 

dz,  al 

;aand  data  to  nak  ragiatar 

;I0t  tbo  coraor  color  ao  that  tho  acraan  data  can  ba  radiaplayad  latar 


doc 

dz 

■ov 

al,  03h 

out 

dz,  al 

iac 

dz 

■OY 

al,  01 6h 

out 

dz,  al 
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put  tki  color  Into  the  auk  register 

bot  bx,  offset  .cnrcolor  $ 

not  dz ,  da: [bz] 

;load  acroon  colon  number 

Inc  cz  ;to  ratnrn  to  valid  column  nonbar 

nov  bz,  cz 


;drae  a  pizal 

coll :  nov 

al.ee: [bz] 

;fill  the  latch  registers 

nov 

al,  dl 

;pizel  color 

nov 

•a : [bz] ,  al 

;dras  the  pixel 

add 

bz,  80 

; point  to  pixel  belov 

a* 

bz,  20400 

;  20480  for  2S6  pts  (colon 

jl 

coll 

;  finally,  rodofino  mask  and  dras  tba  last  pizsl  row 


nov 

dz,  3c eh 

;point  to  address  register 

BOV 

al,  8 

;bit  naak  register 

out 

dz,  al 

; address  tho  register 

Iac 

dz 

;point  to  data  register 

BOV 

az,  255 

;1111  1111  -  naak  sots  cursor  sidth 

out 

dz,  al 

;send  data  to  naak  register 

•  cursor 

color  ao  that 

the  screen  data  can  be  redisplayed  later 

doc 

dz 

BOV 

al.  03h 

out 

dz,  al 

Inc 

dz 

BOV 

al.  01 8h 

out 

dz,  al 

;  pot  tho  color  into  tho  naak  register 
sot  bz,  offaot  .corcolor 

nov  dz ,  da : [bz] 

;load  acroon  colon  numbs x 

naod  ona  colon  to  the  loft  for  bracket  to  point  loft 

doc  cz 

nov  bz ,  cz 

add  bz,  20400 

;  draw  the  laat  pizal  rov  in  tho  colon 

nov  al,ea:[bz]  ;fill  the  latch  ragiatera 

nov  al,  dl  '.pixel  color 

nov  ea:[bz],  al  ;drao  the  pixel 


pop 

ds 

pop 

di 

POP 

si 

pop 

ss 

pep 

bp 

ret 

.pot rears 

STOP 

.TEXT  arcs 

BID 

/ooeeoeoeeeeeeeeooeeeeeeeeeeeeeeeeeeeeoeeeoeeeeeeeeeeeeeeeeeeeeeeeee/ 
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/*•••***••*••*•*•••*••**•**•*•••••**•*•••**•*••**••**•***•••••*••*••/ 

/•IEVIEB.C 

r«Tia»  c  —  displays  a  fils  of  binary  data  abicb  has  baas 


saaad  daring  prarioum  runs  of  Voica .  Input  f ils  say  ba  any  siza ; 
it  is  raad  in  chunks  of  S12  bytas. 


August  1989  Tars ion  alloss  tha  display  of  ona  ehannal  of  data,  invoked 
by  including  -r  and  tha  filanaaa  on  tha  ccaawnd  lina. 


tincluds  <stdio ,h> 
tincluda  <graph.h> 

•includa  "kaydafs.h" 

tincluda  "fcntl.h" 
tincluda  "hsaos.daf" 
tdafina  O.tAH  O.BIIARY 

tdafina  anabla.pl  aster (  (ratcrOASTC.RUI)  I  STC.DPAGEl  > 
tdafina  disabla.adn  aster (  rater  OfcSTC.HHK.IUSI  ) 
tdafina  anabla.pO  aster (  (rstcrOkSTC.IUI)  I  STC.DPAGEO  ) 

unsign  ad  int  serntopO  ; 

unsign  ad  int  sernbotO; 

unsignad  int  totnslO ; 

unsignad  int  totnslO ; 

unsignad  int  noaatopO ; 

unsignad  int  ■ovefullO; 

unsignad  int  (anoaa)O  .(atnsfnt)O  ; 

/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/ 

raaias(disp) 

int  disp;  /•’option’  in  main*/ 

{ 

art  am  FILE  *straan; 

artarn  char  fidinQ  ,  colorlD,  color  2D  ; 

art  am  unsignad  int  *dataptr,  *tnsptr; 

art  am  unsignad  int  doffinc;  /•  dafault  ■  138*6  •/ 

axtara  long  unsignad  int  tnaaddr; 

axtam  int  inkay,  gain,  cycla,  fftaalO,  *lpl,  *lp2,  *ltnp,  lcol,  rcol; 
art  am  int  ptknt,  fftout,  kay; 

FILE  *fp; 

int  i,j,k,n,n,loopknt; 

unsignad  int  revdata[256] ,revknt; 

unsignad  int  rarral ; 

long  int  strt,  placa ; 

raTknt  ■  cycla  •  0; 

gain  «  0; 

/•opan  tha  data  input  fils*/ 

if((fp  •  fopan(fidin,  "rb")>  —  HILL) 

{ 

.claaracraan(.GCLEAkSCkEEI) ; 

.displaycursorC  .GCUISOIOI  >; 

_satv ideoaoda ( .DEFAULTMODE) ; 
satscrO ; 

printf ("Could  not  opan  input  f ila\n") ; 
azit(O); 

> 

/•raad  data  input  fila  in  S12-byts  chunks;  process  and  output  aach  chunk*/ 
if<  kay  ) 
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{ 

place  ■  S12; 

fseek(fp, place, SEEI.SET) ; 

> 

atrt  »  ftell(fp); 

/•  Top  of  user-control  and  read-execute  loop*/ 
chile (1){ 

if (kbhit O  H 

inkey  *  getkeyO; 
switch  ( inkey) { 
case  I.F: 

shile('kbhitO); 
break; 
case  I_S: 

IcarsorO ; 
sawscr(l) ; 

/*aoye  fp  forward  the  required  number  of  bytes*/ 
if (  lcol  >  1) 

f seek (fp , (long) ( ( (lcol-1 ) *8)  *  272) .SEEI.CUl) ; 
fsrite(fp,sizeof (int) , ((rcol-lcol+1)  •  4  •  136) , stream)  ; 
break; 
case  I.X: 

f close (fp) ; 

.clearscreen(.GCLEiKSCKEEI) ; 

.display cor sor(  .OCUkSOUI  )  ; 
setscrO ; 

_set*ideonode(_DEFiULT]IODE) ; 
exit (0) ; 
case  I.BP: 

♦♦gain; 
break; 
caae  1.D0OT: 

if  (gain  >  0)  — gain; 

•  break; 

> 

> 

for(  n“0  ;  a  <  2S6  ;  n*+) 
if (  kay  ) 

{ 

raweal  *  gets(fp); 
reedata[n]  «  rascal  «  4; 

> 

else 

{ 

reedatafn]  *  getw(fp); 

> 

re*knt++;  /‘tally  of  E12-byte  chunks*/ 

if (feof(fp)) 

while (  '.kbhit  ()  ); 

st rt+* (long) doff inc ; 
fseek(fp,strt, SEEI.SET) ; 

/•implement  the  FFT-diaplay  loop*/ 
dataptr  ■  rewdata; 
eritjaeOO,  lpl,  12); 
strt320(30) ; 

tmaptr  *  (nnaigned  *)((lp2[0]«l)  I  tasaddr) ; 
enable .pO ; 

tmefmt (dataptr .tasptr.ptknt,  gain);/*  default  ptknt  ■  128*/ 
for  (j-0;  j<128;  J**) 
colori[127-J]  ■  ( char )ff teal [j] ; 
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■crntopCcolorl ,  cycl#*-*); 

if  (cycl«  **  8)  { 
cydo  »  0; 

MntopO ; 

> 

r«addn(lp2[l] ,  fftval,  fftout); 
ltnp  »  lp2; 
lp2  ■  lpl; 
lpl  ■  lt»p; 

ahila ( ( inp( IOBftSE)  ft  0x08)  —  0)  ; 

hit 3200 ; 

)  /••ad  of  n»*r-control  loop*/ 


> 


/••••••••••••••••••••••••••••••••••a********************************/ 

/•*«•••**••••***•••••••••*••••**•••••••••*•••••••••*•••••••••••*••••/ 

/•SftVSCft.C 

■trier . c  —  otoroo  a  ■action  of  data  f roa  tha  aaaory  buffer  that 


preaioualy  haa  baan  displayed  on  tha  screen. 

Data  ara  aithar  writtaa  to  aa  oatpat  fila  which  contains 
a  haadar  (axloaiag  input  to  tha  Kay  Soaa-Oraph 
Horkatatioa) ,  or  ara  appandad  to  a  aaar-apacif iad 
tha  fila  (non-Kay  soda) . 

nota:  coda  ia  praaant  for  tha  sawing  of  color-codad  data,  bat  it  it 
not  anablad. 


•inclada  <atdio.h> 
tinclada  <atdlib.h> 
finclnda  Catring. h> 

•inclada  <graph.h> 

•inclada  <aya\typaa.h> 

•inclada  CaysXatat .h> 

•inclada  "haaoa.daf" 

•inclada  "fentl.h" 

•da fin a  0.1AW  O.BIIAKY 

•dafina  aaabla.pl  aster (  (ratcrOftSTC.RUK)  I  STC.DPiOEl  ) 

•dafia*  disabla.ada  watcr(  rater OftSTC.HQI.IUSK  ) 

•dafina  aaabla.pO  aatcr(  (ratcrOftSTC.RUK)  I  STC.DPAGEO  ) 

onaignad  iat  totaaK); 

char  aaapl*s[6] ; 
char  opnaoda (3] ; 
char  kayaodaO  -  "ab"; 
char  atcaodaO  »  "ah"; 

/•*****•*••***••••••••**••••••*****••***••*•••**•*•••*••••***••***•***/ 

aaaacr(patrt .offatrt ,offaad,pag*knt ,atap) 
onaignad  iat  patrt,  offatrt,  off and,  atop; 
int  pagaknt; 

{ 

axtarn  iat  fftaalQ,  *lpl,  *lp2,  *ltap,  lcol,  rcol,  kay: 
axtarn  char  fldidC],  naafidC]  ,  colorlD; 
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extern  unsigned  int  *tasptr; 
extern  long  nneigned  int  tnsaddr; 
extern  FILE  *strean; 

* 

struct  stst  buf; 

unsigned  long  int  pageaddr ,  binknt ,  stand; 
long  int  place; 
unsigned  int  rawral; 

unsigned  int  enesptr,  outwal,  olset,  oldof; 
int  result,  dtjp,  txtcolor,  sawgain,  i,  j; 

sawgain  •  0; 
dtyp  »  0; 
result  *  -1 ; 

binknt  *  0;  /*for  accruing  nun  be r  of  sords  seat  to  sawed  Ii;  file*/ 

/•note:  To  iapleaent  filesawes  of  color-coded  data  or  of  rewiewad  data,  dtyp 
■ust  be  added  to  the  arguaent  list.  Then  dtyp  would  equal  0  for  dna 
input ,  1  for  file  input ,  2  to  output  color  codes*/ 

/*get  a  filename  fron  the  user*/ 
aiessages(S); 

restart: 

gets(nesfid) ; 

/•do  we  have  a  new  filenaSM,  or  just  a  <CR>  ?•/ 
if (strlen(newfid)  >  0) 

{ 

/•see  if  this  file  already  exists*/ 

if(  stat (nevf id , tbuf )  “  0  ) 

{ 

/•this  file  exists  already  —  set  up  for  an  append,  or  request 
a  new  filename  if  this  is  to  be  a  lay  header  file*/ 
for(  j-0  ;  j<iS  ;  j*+) 
newfidCj]  *  1  ’; 

if  (  kay  ) 

{ 

■ess ages (10) ; 
goto  restart ; 

> 

else 

{ 

if(  sassages (6)  **  1  ) 

{ 

sassages (S); 

goto  restart ; 

> 

> 

> 

> 

else 

{ 

/•user  hit  <CR>  —  no  sawe  is  Bade*/ 
nessages(ll) ; 

return(O) ; 

> 

/•Open  the  new  data  file*/ 
if (dtyp  <  2) 

{ 
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/•binary  write  or  append  of  raw  data*/ 
if(  kay  ) 

strcpy(opnnode,kayaoda);  /*Kay  haadar  fila*/ 

alaa 

strcpy (opnnode ,attaoda) ;  /•son-tay;  can  ba  appandad*/ 

if((streaa  »  fopen(nevfid, opnnode))  “■  IULL){ 
.cloarscraenC.QCLEARSC&EEI) ; 

.display cursor (.GCUBSOKOI) ; 
satscrO; 

_sat*ideonode(_DEFlULTHODE) ; 

printf ("Cannot  opan  a  new  fila.  Yonr  bard  disk  nay  ba  fnll.W); 
claararr(straaa) ; 
azit(O) ; 

> 

> 

else 

/*  append  of  colorcodad  data*/ 
if((strean  *  f opan (nawf id , “a” ) )  “  IULL){ 

.clear  screen(.GCLEARSCREEI) ; 

.display cursor (.GCUKSOIOI) ; 
satscrO ; 

.setTidaoaoda(.DEFiULTKaDE) ; 

printf  ("Cannot  opan  a  new  fila.  Yonr  bard  disk  nay  be  fnll.W); 

daararr(straan) ; 

axit(O); 

> 

/•redefine  fidid*/ 
st  r cpy (f idid ,nawf id) ; 

■essagas(7) ; 

/•write  data  to  either  old  or  now  file*/ 

/•save  daa  data*/ 
ifCdtyp  ■■  0) 

{ 

if (  kay  ) 

{ 

kayhdrO  ; 

> 

of sat  *  offstrt; 
oldof  *  0; 

pagaaddr  ■  ((long)pstrt)<<28; 

/•loop  onca  for  each  page,  stopping  on  last  page  when  offend  is 
reached*/ 

for(  j«0  ;  j  <*  pagaknt  ;  j++) 

{ 

/*  do  onca  at  start  of  page  to  set  ofsst  >  0  */ 
newptr  •  (unsigned  •) (ofsat  j  pagaaddr); 
rawval  *  •newptr; 
if (  kay  ) 

rawwal  •  rawwal  »  4; 

if (pntw(ra*Tal,straaa)  ■■  E0F){ 
if  (f  error  (straw)  ){ 

/•cannot  writ*  to  fila  -  the  disk  nay  ba  fnll*/ 
.claarscraen(.OCLEiRSCREEI) ; 

.display cursor (.GCUK50RGI ) ; 
satscrO ; 

_satwidaoaioda(.DEF4ULTRODE) ; 

printf  ("Cannot  srita  to  fila.  Yonr  bard  disk  nay  be  fullAn"); 
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claarorr (straan)  ; 

•lit CO); 

> 

} 

oldof  «  of sat; 
ofaot  2; 

++binknt ; 

nhilo(  of sot  >  oldof  ) 

{ 

nooptr  •  (ufigMd  *)(ofs«t  |  ptgaiddr); 
rawwal  ■  *s*iptr; 
if (  kay  ) 

rtml  »  rinal  »  4; 

if (pntoCrasval, stroan)  “  EOFH 
if (f orror (»t roam)  ) { 

/•cannot  writ*  to  filo  -  the  disk  say  bo  full*/ 
_cloarscroon(_OCLEiRSCBEEI) ; 

.displaycnrsorCOCUKSOUI) ; 
sotscrO ; 

_s*tTid*onod*(_DEF*ULTHODE) ; 

printf ("Cannot  writ*  to  filo.  Tonr  hard  disk  Bay  bo  fnll.\n“); 
cloarorr (at roan) ; 

•xit(O) ; 

> 

> 

oldof  •  ofaot ; 
ofaot  2; 

if (  (j  “  pagoknt)  kk  (  (ofaot+atop)  >■  ofiond)  ) 

/•if(  kay  ),  ping  in  binknt  nnabor  of  audios  writton*/ 
if C  kay  ) 

{ 

ronind(atroan) ; 
placa  »  26; 
stand  •  10000; 

•hiloC  binknt  <  stand  ) 

{ 

♦♦place ; 
stand  /*  10; 

> 

faookC  stroan,  placo,  SEEK. SET  ); 
nltoaC  binknt ,  sanplos ,  10) ; 
fpntsC  sanplos ,  stroan); 

} 

nossagos(8) ; 

f closo(stroan) ; 
rotnrn(O) ; 

> 

-M-binkst ; 

} 

oldof  ■  0; 

♦♦pstrt; 

ifCpstrt  >  a)  pstrt  ■  4; 
pagoaddr  *  ((long)pstrt)«28; 

> 

> 

/••••from  boro  on  down  is  disabled  by  dtyp  being  hardwired  to  0  ••••/ 

/•if  this  is  to  bo  oaablod,  th*  cod*  mat  bo  rovisod  •/ 

ols*  if  (dtyp  ■»  1) 

/•saw*  data  input  fron  a  filo*/ 
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roturn;  /*.  .  .to  function  ’revise’,  to  *•**  saved  data*/ 


ola#  if  (dtyp  «»  2) 

/•aa*o  the  colorcodoa  of  expanded  fftvalues*/ 

{ 

outval  *  (long  int)n**ptr; 
ofaot  *  outval  t  OxFFFF; 
for(  1  “  0  ;  i  <  400  ;  !♦♦) 

{ 

uritpaOO ,  lpl ,  12)  ; 
atrt320(30) ; 

/ on. opt r  »  lunBxgi *d  •) (ofaot  i  abanddr);*/ 
tnsptr  »  (nnaignod  •X(lp2[0]«l)  |  tnsaddr); 
enable _p0 ; 

totasl (novptr ,  taaptr,  256,  aavgain); 
ofaot  ♦*  136; 

for(  j  -  0  ;  j  <  128  ;  j+*) 

{ 

colorl[j]  *  (cbar)fft*al[j] ; 
pntc (color 1 [j] .atrooaO  ; 

} 

for(  j  ■  0  ;  J  <  512  ;  j++);  /oaait  loop*/ 

ro»d<ta(lp2[l] ,  fftval,  256); 
ltap  *  lp2; 

Xp2  -  lpi; 
lpl  ■  ltap; 

•bilo( (inp(IOBiSE)  1  0x06)  »»  0) ; 
hit 3200  ; 

} 

> 


SCREE! . ASH 

Draaa  th*  sonograa  image  to  acroon. 

Hrito  directly  to  tho  EOi  video  UR.  Thin  rout in*  naauaea  th*  video  driver 
ia  I8H  coapatibl*  and  anpporta  EQi  aod*  10H  (  640x350,  16  color*) 

not*;  9/89  -  Rout in**  aotacr,  aerntop  and  aernbot  are  functional.  Other 
cod*  oxiata  aa  hooka  for  future  expanaion. 


.TEXT 

.TEXT 

SEOREIT 

EIDS 

BYTE  PUBLIC  ’CODE’ 

.DATA 

.DATA 

SEOREIT  WORD 
EIDS 

PUBLIC  1 

’DATA’ 

COIST 

COIST 

SEOREIT 

EIDS 

VOID 

PUBLIC 

•COIST’ 

.BSS 

_BSS 

SEOREIT 

EIDS 

VOID  PUBLIC 

’BSS’ 

DOROUP 

OROUP 

COIST 

.  .BSS , 

.DATA 

ASSURE  CS : .TEXT ,  DS: DO ROUP,  SS:DOROUP,  ES:DOROUP 
.TEXT  SEOREIT 

; aotacr  resets  palette  valuoa  to  dofault  color* 
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PUBLIC  _sstscr 


.setscr  PIOC  FM 

puk  bp 

mot  bp.ap 
push  as 

push  si 

push  di 

mo*  ah,  0 

sot  si,  01 Oh  ;sst  video  aode  10b 

1st  lOh 

pop  di 

pop  si 

pop  si 

pop  bp 

rot 

.setscr  EIDP 
PUBLIC  .scrntop 


.scrntop  PIOC  Fit 


push 

bp 

■OT 

bp.ap 

posh 

aa 

push 

ai 

posh 

di 

posh 

da 

BOO 

di.  [bp+6] 

;paaa  offset  of  data  buffer 

BOO 

ax,  [bp+8] 

;paaa  sagnant  to  da 

BOO 

da,  ax 

BOO 

dx,  3c  oh 

;aot  video  arito  soda  2 

BOO 

*1.  6 

oot 

dx.  si 

inc 

dx 

BOO 

>1.  2 

;ridao  soda  2 

oot 

dx,  ai 

BOO 

ax,  0a019h 

; point  to  top  loft  scroea  corner 

BOO 

aa,  ax 

;set  up  bit  auk  register 

BOO 

dz,  3c sh 

;  point  to  address  register 

BOO 

si,  8 

;bit  Bash  rsgistsr 

oot 

dz,  al 

; address  the  register 

ioc 

dz 

;  point  to  data  register 

BOO 

cz,  [bp*10] 

BOO 

az,  80h 

shr 

az,  cl 

oot 

dz,  al 

;sead  data  to  sash  register 

;drss  a  pixel 

■Of 

bz.  80 

;load  with  screes  colau  aaaber  to  write  to 

coll :  aov 

al.es :[bx] 

;fill  the  latch  registers 

■Of 

al,  da : [di] 

;pixel  color  froa  iapet  array 

■Of 

aa : [bz] ,  al 

;draw  the  pixel 

iac 

di 

; point  to  aaxt  input  array  elaoant 

add 

bx,  80 

; point  to  pixel  below 

bx,  10240 

;  10240  01  20480  for  2S8  pts  (colon  bottoa) 
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jl 

coll 

finish: 

pop 

da 

pop 

di 

pop 

ai 

pop 

aa 

pop 

bp 

rat 

_«crat  op  EIDP 

PUBLIC  .scrnbot 
_«crnbot  PBOC  PM 


push 

bp 

■Of 

bp.ap 

push 

as 

push 

ai 

push 

di 

push 

da 

■Of 

di.  [bp+fi] 

;paaa  offaat  of  data  bnffar 

bov 

ax,  [bp+8] 

;paaa  sagaant  to  da 

■Of 

da,  ax 

bov 

dx,  3coh 

;aat  t idao  srita  aoda  2 

bov 

al,  5 

out 

dx,  al 

iuc 

dx 

bov 

al.  2 

; video  aoda  2 

out 

dx,  al 

moy 

ax,  0a019h 

;  point  to  top  loft  a  croon  comor 

■Of 

aa,  ax 

;sat  up  bit  Bask  ragiatar 

BOV 

dx,  3cab 

; point  to  addrasa  ragiatar 

BOV 

al.  B 

;bit  aaak  ragiatar 

out 

dx,  al 

; addrasa  tha  ragiatar 

inc 

dx 

;point  to  data  ragiatar 

BOV 

ex,  Cbp+10] 

BOV 

ax,  BOh 

■hr 

ax,  cl 

out 

dx,  al 

;s*nd  data  to  aaak  ragiatar 

;drsw  s  pixol 

BOV 

bx,  80*10240 

;load  with  scraan  colovi  anabar  to  arita  to 

cola :  bov 

al.aa: [bx] 

;fill  tba  latch  rogistara 

BOV 

al,  da : [di] 

;pixal  color  froa  input  array 

BOV 

aa :  [bx] ,  al 

;dra*  tha  pixal 

lac 

di 

; point  to  mart  iapat  array  alaaant 

add 

bx,  80 

; point  to  pixal  baloa 

GSp 

bx,  20480 

; 10240  OK  20480  for  258  pta 

Ji 

cola 

by*'- 

pop 

da 

pop 

di 

pop 

ai 

POP 

aa 

POP 

bp 

rot 
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.scrabot  DDF 


C 

PUBLIC  .acral 
.acral  PEOC  FU 


PI fh 

bp 

WOW 

bp.sp 

yuah 

as 

pooh 

al 

p vmh. 

di 

puh 

da 

■OT 

di.  [taped] 

;paas  offset  of  data  baffer 

■OT 

ax,  [bp*8] 

;paaa  aagaant  to  dr 

■OT 

da,  ax 

mow 

dx,  3c ah 

;sat  video  arito  soda  2 

mow 

al,  6 

out 

dx,  al 

lac 

dx 

■OT 

al.  2 

;rideo  soda  2 

oat 

dx,  al 

MOT 

ax,  0a019h 

; point  to  top  laft  scraan  coraar 

■OT 

as,  ax 

;a«t  op 

bit  auk  register 

■OT 

dx,  3coh 

; point  to  addroas  r agist ar 

■OT 

al,  » 

;bit  aaak  register 

oat 

dx,  al 

;addrass  tka  ragistar 

iac 

dx 

; point  to  data  ragistar 

■OT 

ex,  [bp+10] 

■OT 

ax,  80b 

•hr 

ax,  cl 

oat 

dx,  al 

;aaad  data  to  aaak  ragistar 

;  draw  a 

pizol 

■OT 

bx,  00 

;load  with  acraan  colara  aoubar  to 

colb: 

■OT 

al.os: [bx] 

;fill  tka  latch  ragistara 

■OT 

al ,  da :  [di] 

;pixel  color  froa  inpot  array 

■OT 

•a : [tax] ,  al 

;dras  tka  pixel 

lac 

di 

; point  to  aaxt  input  array  elaaont 

add 

bz,  80 

;  point  to  pixal  baloa 

bx.  SI 20 

; 10240  OK  20480  for  258  pts 

ji 

colb 

andl : 

pop 

da 

pop 

di 

pop 

ai 

pop 

as 

pop 

bp 

rot 

.acral 

IMP 

PUBLIC  . 

.acral 

.acral  PBOC  FU 

paah 

kp 

act 

prak 

as 

pash 

si 

87 


pltk 

di 

pvtk 

4a 

BOV 

4i,  [bp+8] 

BOV 

ax.  [bp+e] 

BOB 

4a.  az 

BOB 

4z ,  3c ak 

BOB 

al.  S 

oat 

4z.  al 

Ibc 

4z 

BOB 

al.  2 

out 

4z,  al 

BOB 

az.  0a019k 

BOB 

aa.  az 

;aat  np  bit  aaak  ragiatar 

BOB 

dz .  3c  ak 

BOB 

al.  8 

out 

dz,  al 

iac 

dz 

BOB 

CX.  Cbp+10] 

BOB 

az.  80k 

i hr 

az,  cl 

out 

dz,  al 

; draw  a  pizol 

BOB 

bx,  80+5120 

cole :  BOB 

al.aa:  [bz] 

BOB 

al.  4a: [di] 

BOB 

aa:[bz],  al 

iac 

4i 

add 

bz,  80 

bz,  10240 

ji 

cole 

aad2: 

pop  4a 

pop  41 

pop  al 

P«P  •« 

pop  bp 

rot 

_acra2  STOP 
PUBLIC  _acm3 
_acra3  P10C  PU 


jpaaa  offaat  ef  data  baffar 
;P«aa  Mgaoat  to  4a 


;oot  rldao  arlta  aoda  2 


;ol4ao  soda  2 

; point  to  top  loft  across  coraor 


; point  to  adlrsaa  ragiatar 
;blt  aaak  ragiatar 
;a44raaa  tka  ragiatar 
;  point  to  4ata  ragiatar 


;aand  data  to  aaak  ragiatar 


;loa4  with  acroaa  colnaa  aaabar  to  arita  to 
;<ill  tka  latch  ragiatora 
;pizal  color  froa  in  pot  array 
;4raa  tka  pizal 

; point  to  sort  inpot  array  alaaant 
; point  to  pizal  baloa 
;1024O  OB  20M0  for  2S6  pta 


pmak 

aw* 

fcp.ap 

P*ah 

aa 

P-k 

al 

fmah 

di 

VUh 

4a 

BOB 

di.  fbp+8] 

;paaa  affaat  of  data  baffar 

BOB 

**.  Cbp+8] 

;paaa  upnt  te  da 

BOB 

da,  az 

BOB 

dz,  3c ak 

;aat  ▼ idao  arlta  aoda  2 

BOB 

al.  S 

OBt 

dz,  al 
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isc 

dx 

mor 

■1.  2 

;widao  aoda  2 

out 

dx,  al 

mor 

ax,  0a019h 

, -point  to  top  laft  acraan  comar 

mor 

aa,  ax 

;sot  up  bit 

■uk  ragiatar 

■ov 

dx,  3cah 

; point  to  addraaa  ragiatar 

mor 

al.  8 

;bit  naak  ragiatar 

out 

dx,  al 

; addraaa  tba  ragiatar 

Inc 

dx 

; point  to  data  ragiatar 

mor 

cx,  [bp+10] 

mor 

ax,  80h 

•hr 

ax,  cl 

out 

dx,  al 

;aand  data  to  aaak  ragiatar 

;dra«  a  pixal 

mor 

bx.  60+10240 

;load  with  acraan  colnan  noabar  to 

cold :  bov 

al.aa: [bx] 

;lill  tba  latch  ragiatara 

mor 

al,  da : [di] 

;pixal  color  froa  input  array 

mor 

•a : [bx]  ,  al 

; draa  tba  pixal 

inc 

di 

;point  to  aaxt  inpat  array  alanant 

add 

bx,  80 

; point  to  pixal  baloa 

«P 

bx,  15360 

; 10240  Ok  20480  for  256  pta 

ji 

cold 

•nd3 : 

pop  da 

pop  di 

pop  ai 

pop  aa 

pop  bp 

rot 

.•cm3  EIDP 
PUBLIC  _»cm4 
_acrn4  PBOC  FAR 


push 

bp 

mor 

bp.ap 

push 

aa 

push 

ai 

push 

di 

push 

da 

lev 

di,  Cbp+«] 

;paaa  offaat  of  data  boffar 

■or 

ax,  [bp+8] 

;p aaa  aagnant  to  da 

mow 

da,  ax 

mow 

dx,  3c ah 

;aat  aidao  writ*  aoda  2 

mow 

al,  6 

out 

dx,  al 

iuc 

dx 

mor 

al.  2 

;widao  aoda  2 

out 

dx,  al 

■ov 

ax,  0a019b 

; point  to  top  laft  acraan  comar 

mor 

aa,  ax 

sot  up  bit  m 

tab  ragiatar 

mow 

dx,  3cah 

; point  te  addraaa  ragiatar 

mow 

al,  8 

;bit  naak  ragiatar 

out 

dx,  al 

; addraaa  tba  ragiatar 
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; point  to  data  ragistar 


lac  dz 

bov  ci,  [bp*10] 

aov  az,  80h 

shr  az,  cl 

oat  dz,  al  ;aaad  data  to  nask  ragistar 

;draa  a  pizal 


■OT 

bz,  80*15360 

;load  with  sc roan  colons  nanbar  to  srita  to 

BOV 

al.as: [bz] 

;fill  tka  latck  ragistars 

BOV 

al,  ds :  [di] 

;piz*l  color  fron  la  pot  array 

BOV 

as : [bz]  ,  al 

;dra*  tha  pizal 

inc 

di 

; point  to  aazt  in  pot  array  alanant 

add 

bz,  80 

;point  to  pizal  balos 

bz,  20480 

; 10240  Ok  20480  for  256  pts 

jl 

col* 

and4: 


pop 

ds 

pop 

di 

pop 

si 

pop 

ss 

pop 

bp 

rat 

_acrn4  EIDP 
.TEXT  EIDS 
EID 


/•*•**•••••••••••••*•••***••••••**•••••**••*••••••****•••*••***•*•••/ 

/**••**••**••*••*••••*••**•••*•*****•••**••••••••••••••**••••••••••*/ 


/•SH0VD1T.C 

ahowdat.c  —  Effacts  rotriaval  of  data  pmviously  storad  la  aaltipla 
pagas  of  aaaory  by  tbo  DM,  racoapotos  tha  FFTs,  and  displays 
on*  lino  aach  tiaa  it  is  callad. 


tinclnda  <stdio.h> 
tiaclada  "bsaos.daf" 

Sdafina  O.UH  O.BIMRT 

Sdafina  aaabla.pl  ostcrC  (rstcrOkSTC.UII)  I  STC.DPAQEl  ) 

Sdafina  disabla.ada  wstcr(  rstcrOkSTC.HEX.MSI  ) 

Sdafina  anabla.pO  sstcr(  (rstcrOtSTC.IUI)  I  STC.DPAOEO  ) 

aasigaad  lnt  scratopO ; 
anaignad  iat  scrabotO; 
ansignad  iat  totaalO; 
aasigaad  iat  totas2(); 
ansignad  iat  (aaova) () ; 
aasigaad  iat  (atasflst)O; 

. . a.aaa.aa/ 

sbosda t ( d lap , t  ock , dacaa) 

iat  disp;  /adisplay  option  sat  in  adopt:  1  *  4-channsl,  2  ■  2-chanaal, 
>2  ■  1-chaanal*/ 

iat  tock;  /*sot  to  1  or  0  in  gatsaa  for  oas-sacoad  tiaa  ticks*/ 
iat  dacaa;  /*sat  to  1  or  0  ia  gataaa  for  taatk-of -a-sscoad  ticks*/ 

{ 

aztara  iat  cycla,  ptkat,  fftoat,  fftvalG,  *lpl ,  *lp2,  *ltap; 
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/ 


artars  int  lcol,  rcol; 

a  rears  1st  gain ; 

artars  char  color lQ  ,  color2 □  ; 

artars  sssigsad  1st  *dataptr,  atssptr,  doff sat,  anvalopa; 
artars  loaf  sssigsad  1st  tsaaddr,  shovaddr; 

1st  i, j,k,s,  argain; 
static  ist  taskst; 

argais  *  gala; 
anvalopa  ■  0; 


vritpa(30,  lpl,  12); 
atrt320(30) ; 

dataptr  »(nnaign*d  *)(doffsat  |  shovaddr) ; 
tasptr  *  (ssalgsad  *)  ((lp2[0]«l)  I  tsaaddr) ; 
anabla.pO; 

toafat (dataptr, taaptr .ptkat,  argain) ; 

/•fisd  tha  signal  asplitsda*/ 
for(  i“0  ;  Kptknt  ;  i++  ) 

if(  anvalopa  <  dataptr [i]  )  anvalopa  ■  dataptr [ij ; 
anvalopa  a  (asvalopa  -  0x7fff)  »  8; 


if  (d  lap  —  2) 

{ 

k  *  0; 

for(  j  -  0  ;  j  <  128  ;  j*-0 

( 

colorl [127- j]  ■  (char)fftval[k*+] ; 
color2[127-j]  ■  (char)fftval[k++]  ; 

> 

/«aaka  tka  tiaa  ticks*/ 

if(  tock  ) 

{ 

/*aaka  a  longar  lisa  ovary  taa  sacosda*/ 

++t  askst ; 

if(  ! (tonkntXlO)  ) 

( 

t askst  a  0; 

for(  j  -  120  ;  j  <  128  ;  j*+) 
colorl  [127- j]  a 

> 

alsa 

for(  j  ■  124  ;  j  <  128  ;  j**) 
colorl [127- j]  ■  63; 

} 

if  (  dacaa  ) 

{ 

for(  j  ■  126  ;  j  <  128  ;  J**) 
colorl [127- j]  ■  63; 

> 

colorl [137]  a  63;  /*horixoatal  lisa  across  display  araa*/ 

scrstop(colorl  ,cyda) ; 
sersbot (color2 ,cycla) ; 
cycla**; 

} 

also  if  (disp  >  3) 

{ 
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for  (j-0;  j<128;  j++) 

colorl [127- j]  ■  (char)fftval£j] ; 

/•nake  the  tine  tick**/ 
if (  tock  ) 

{ 

/•■ako  a  longer  lino  ovary  ton  seconds*/ 
e+tenkmt; 

lf(  ! (tonkntXlO)  ) 

{ 

tanks t  a  0; 

for(  j  ■  120  ;  j  <  128  ;  joe) 
colorl [127- j]  ■  63; 

> 

also 

for(  j  ■  124  ;  j  <  128  ;  j++) 
colorl [127- j]  ■  63; 

> 

if (  do COB  ) 

{ 

for(  j  »  126  ;  j  <  128  ;  j++) 
colorl [127- j]  ■  63; 

> 

colorl  [127]  *  63;  /*i>or izontal  lino  across  display  araa*/ 

scmtop(colorl ,  cyclo) ; 
putnag(tenwelope ,cyclo) ; 
cyclo++; 

} 

if  (cycle  >-  8)  { 
cyclo  ■  0; 

■or  of  nil  O;  /•  a  aids  waveform  for  all  Baaory  displays*/ 

} 

readdm(lp2[l] ,  fftoal,  fftont) ; 
ltap  •  lp2; 
lp2  »  lpl ; 
lpl  *  ltap; 

while ((inp(IOBiSE)  t  0x08)  —  0); 
hlt320() ; 

return; 

} 


/••••*•**••••**•**••••*••*••••••••*••••*****************•***•*•**•*•/ 

/•••••••••••••••••••••••••••oooooooooooooooooooooooooooooooooooooooo/ 

; TOTHS. ASM 

;  totas .  asa  —  Bowes  a  buffer  f roa  tha  DM  buffer  to  THS  data  meanry. 


formats  and  scales  tbe  data  buffer  on  tke  fly. 
Call  with: 

address  of  input  buffer 
address  of  THS  buffer 
number  of  words  to  transfer 
scaling  coefficient  (gain) 

source  segnant  -  as 

source  offset  -  si 
destination  offset  -  di 

■egative  gain  is  allosed. 


.text  seoheit  byte  public  >code> 
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.TEXT  BEDS 


.DATA  SUREST  SOU  PUBLIC  ’DATA’ 

.DATA  BIDS 

COAST  SEOKEIT  SOU  PUBLIC  >COIST> 

COSST  BIDS 

_BSS  SEOKEIT  SOU  PUBLIC  >BSS> 

_BSS  BIDS 

DO ROUP  GROUP  COIST,  .BBS,  .DATA 

ASSURE  CS :  .TEXT,  DS:DGROUP,  SStDGUUP,  ES  :DOROUP 

.TEXT  SEOKEIT 


;This  Torsion  of  totas  la  for  displaying  and  saving  a  single  channel. 
PUBLIC  .totmsl 


.totasl  PEOC 

FAR 

push 

bp 

■OT 

bp,ap 

push 

aa 

push 

al 

push 

di 

push 

da 

push 

as 

;callod  with 

(ssourca,  odast. 

auaords,  gain) 

■Of 

si.  [bp-*«] 

;pass  satires  offset 

■or 

ax,  [bp+8] 

; pass  aonres  sagaant 

■OT 

os,  ax 

;to  as 

■OT 

di ,  [bp+10] 

;pass  dost inat ion  off sat 

■OT 

ax,  [bp+12] 

;paas  dost  inat  ioa  sonant 

BOV 

da,  ax 

;to  da 

BOV 

dx,  [bp+14] 

;get  ntMbor  of  aorda  to  mots 

BOV 

cx,  [bp+16] 

;gst  gain 

BOV 

bx,  07fffh 

bogiu :  cap 

cx.O 

;soo  if  gain  is  <  0 

ji 

loss 

loopl :  aov 

ax,  as:  [si] 

;gat  aonres  word 

sob 

aj ,  bx 

; unipolar  ->  bipolar 

shl 

ax.  el 

; adjust  tbs  gain 

sot 

[di],  ax 

;ptxt  it  to  dastination  (real  bnffar) 

add 

di.  2 

; increment  dastination  address 

■OT 

ax,  sa :  [ai] 

aab 

ax,  bx 

shl 

ax,  cl 

■OT 

[di],  ax 

add 

di,  2 

;OET  READY  FDR  IEXT  LOOP  - 

add 

•i,  2 

* 

doc 

dx 

jnz 

loopl 

J«S> 

bjo 
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lass: 

sag 

cx 

; change  sign  fro*  nag  to  pos 

loopO: 

■Of 

ax,  aa:[ai] 

;gat  aoarca  lord 

anb 

ax,  bx 

; unipolar  ->  bipolar 

■ar 

ax,  cl 

; adjust  tha  gain 

■Of 

[di]  ,  ax 

;pnt  it  to  dastiaation  (roal  buffar) 

add 

di,  2 

; lncra*ant  dastiaation  addraas 

■Of 

ax,  a* :  [«i] 

■ab 

tx,  bx 

■ar 

ax,  cl 

■or 

[di],  at 

add 

di,  2 

;OET  READY  FOR  REIT  LOOP  - 

add 

■i,  2 

dac 

dx 

jn* 

loopO 

i"P 

by* 

bya: 

pop 

as 

pop 

da 

pop 

di 

pop 

■i 

pop 

■■ 

pop 

bp 

rot 

_tOt*Sl 

EIDP 

;Thia  Torsion 

is  asad  for  displaying  2  channels 

PUBLIC  _tot*s2 

_tot*s2  PROC  FAR  . 

push 

bp 

■of 

bp.sp 

push 

SB 

pash 

si 

posh 

di 

pash 

ds 

pash 

os 

; called  with  (*soarca,  edast ,  nai 

■aords ,  gain) 

■Of 

si,  [bp+6] 

;paaa  soarca  offset 

■Of 

ax,  [bp+8] 

;paaa  soarca  saga ant 

■Of 

as,  ax 

;to  os 

■Of 

di,  [bp+10] 

;pass  dastiaation  offaat 

■Of 

ax,  Cbpai2] 

;paas  dastiaation  sagnant 

■Of 

ds,  ax 

;to  ds 

■Of 

dx,  [bp+14] 

;gst  ntabar  of  aorda  to  BOTO 

BOY 

cx ,  [bp+16] 

;gat  gain 

BOY 

bx,  07fffh 

otrt :  cap 

ex.O 

;aaa  if  gala  is  <  0 

J1 

■inas 

loop2 

BOY 

ax,  as: [si] 

;gat  soarca  aord 
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sob 

ax,  bz 

; unipolar  ->  bipolar 

shl 

az,  cl 

; adjust  tha  gain 

mar 

[di],  az 

;pnt  it  to  destination  (real  buffer) 

add 

si.  2 

add 

di.  2 

aoa 

ax,  as:  [si] 

sab 

az,  bx 

shl 

az,  cl 

aoa 

[di],  az 

add 

di,  2 

add 

si  ,2 

dec 

dz 

jnz 

loop2 

j*G> 

finish 

■inns :  nag 

cz 

;a  nsgatiao  gain  is  allosad 

loop2a :  aoa 

az,  as:  [si] 

;gat  soarce  lord 

sab 

az,  bz 

; unipolar  ->  bipolar 

sar 

ax,  cl 

; adjust  tha  gain 

aoa 

[di],  az 

ipat  it  to  destination  (real  buffer) 

add 

di,  2 

add 

si.  2 

; incraaant  location  in  assent  source 

aoa 

az,  as:  [si] 

sab 

az,  bz 

sar 

az,  cl 

aoa 

[di],  az 

add 

di,  2 

add 

si.  2 

; increMnt  location  in  savant  source 

doe 

dz 

jnz 

loop2a 

finish:  pop 

as 

pop 

ds 

pop 

di 

pop 

si 

pop 

ss 

pop 

bp 

rat 

_totas2  EIDP 

.TEXT  EIDS 
EID 


TXTPBEP.ABH 

Restores  bit  nap  tru  and  bit  address  register  to  allov  display  of 
;RSC  Graphics  tart  ob  scraaa. 

Ur  it  a  diractly  to  tha  EGA  aidao  RAH.  This  routine  assunes  tha  video  driaar 
is  IBH  compatible  and  sapports  EGA  soda  10E  (  640x350,  18  colors) 


.TEXT  BEQUEST  BYTE  PUBLIC  ’CODE’ 
.TEXT  BEDS 

.DATA  SEGREIT  VOID  PUBLIC  'DATA' 
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.DATA 

BIDS 

COIST 

COAST 

SEOHEIT 

BIOS 

WORD 

« 

PUBLIC  'COIST’ 

_BSS 

_BSS 

SEOHEIT 

BIDS 

BORO 

PUBLIC  >BSS> 

DOROUP 

GROUP 

COIST, 

_BSS ,  .DATA 

ASSURE  CS : .TEXT ,  DS:DGAOUP,  SS: DO AO UP,  ES:MROUP 

.TEXT  SEOHEIT 
PUBLIC  .txtprep 


.txtprep  PROC 

FAR 

push 

bp 

■or 

bp,»p 

push 

OS 

push 

•i 

push 

di 

■or 

dx,  3ceh 

;aot  writ*  soda  1 

■or 

•1.  5 

;indax  register  S 

out 

dx,  «1 

; sand  tha  index 

inc 

dx 

;  point  to  Bodo  register 

■or 

«1,  0 

;choose  aodo  0 

out 

dx,  al 

;»et  the  aodo 

■or 

dx,  3ceh 

; point  to  address  register 

■or 

«1,  8 

;bit  auk  register 

out 

dx,  al 

; address  the  register 

Inc 

dx 

;point  to  data  register 

■or 

al.  Offh 

oat 

dx,  al 

;send  data  to  aask  register 

pop 

di 

pop 

■i 

pop 

M 

pop 

rot 

bp 

.txtprep  EIDP 
_TEIT  BIDS 


EBB 
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